DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


E 12 
| **F ILE®*1D**DBGPERMOP 
DDDDDDDD BBBBBBBB GGGGGGGG PPPPPPPP EEEEEEEEEE RRRRRRRR MM MM 000000 PPPPPPPP 
DDDDDDDD BBBBBBBB GGGGGGGG PPPPPPPP EEEEEEEEEE RRRRRRRR MM MM 000000 PPPPPPPP 
DD DD 688 BB GG PP PP EE RR RR mM MMMM O00 00 PP PP 
OD DD 68 BB GG PP PP EE RR RR MMMM MMMM O00 00 PP PP 
0D DD 6B BB GG PP PP EE RR RR MM MM 00 00 PP pp 
OD DD BB GG PP PP EE RR RR MM MM 00 00 PP PP 
0D 0D eaetae | &G PPPPPPPP EEEEEEEE RRRRRRRR MM MM OO 00 PPPPPPPP 
0D DD GG PPPPPPPP EEEEEEEE RRRRRRRR MM MM 00 00 PPPPPPPP 
0D oD BB GG GGGGGG PP EE RR RR MM MM O00 00 PP 
OD DD 6B BB GG GGGGGG PP EE RR RR MM MM OO 00 PP 
0D DD BB BB GG GG PP EE RR RR MM MM 00 00 PP cows 
DD DD 6B BB GG GG PP EE RR RR MM MM OO 00 PP caus 
DDDDDDDD BBBBBBBB GGGGGG PP EEEEEEEEEE RR RR MM MM 000000 PP wes 
DDDDDDDD BBBBBBBB GGGGGG PP EEEEEEEEEE RR RR MM MM 000006 PP saue 
LL Ililll SSSSSSSS 
LL M1111 SSSSSSSS 
LL I] SS 
LL Il ss 
LL I] $s 
LL II ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] 5S 
LL Il $$ 
LL I] ss 
LLLLLLLLLL II1111 SSSSSSSS 
LLLLLLLLLL HI111 SSSSSSSS 


— + SS  —— ——————————————————————— — 
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-TITLE 08 Ay 
-IDENT /V04-00 


PARRBARAABAALALAAALALAALALARAASAREEAL RRA LAMAR A RAR ASE SRSA REAR AAAS E ESAS ASE LARA S SD GS 


3, 

0 Qi : 
000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
4 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
44 8 ‘* ALL RIGHTS RESERVED. * 

P4 & 

4 10 ;* THIS hes * is FURNISHED UNoER A LICENSE AND MAY BE USED AND copice * 

00 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH baccn SE AND WITH THE * 

000 1g 3* INCLUSION OF THE arent Silla ly? THIS SOFTWARE OR ANY OTHER * 

000 13 ;* COPIES TH oo T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

000 14 ;* OTHER PERSON. NO. TITLE TO AND OONERSHIP OF THE SOFTWARE [S HEREBY * 

44 F 3* TRANSFERRED. 4 
.* * 

0000 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

44 } 3* CORPORATION. * 

7* ® 

0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 94 is : 

** 

0000 5 PITTIIIITISIIII IT TT ITIL TTI TTI TIT iii titi titi iiiiiii iti titi iiiiii ti it 

0000 3 

0000 $ : ctl BY 

43 gi 3 Ping Sager Jun, 1982 

0000 $5 : ; MODIFIED BY 

0000 31 : Rich Title Nov, 1982 Changed DBGSPERFORM_OPERATOR so 

0000 3 3 $ that it handles valie descriptors 

9000 ; 3 loctond of VMS descriptors. This 

0000 4 : is necessary for operations that 

44 $2 : may use the TYPEID field, such 
000 6; as the SIZEOF operator in C, where 

0000 7 ; it is necessary to look up the DST 

0000 8; information in order to determine 

0000 9 : the result. 

0000 40 ; V. Holt Mar, 1983 Added support for packed decimal. 

4 ¢} 3 Added support for PL/I bit-strings. 

0000 ig F P. Sager Jun, 1983 Fixed up PLI/I bit-string operations 

4 44 : and packed decimal comparisons. 

45 ; P. Sager Sep, 1983 Changed -LONG to .BLKL for operand 
4h $6 3 and work_octa. 

000 47 ; K. Glossop Oct, 1983 Fixed complex exponentiation. (The 
0000 48 ; real and imaginary portions were being 
000 49 ; pushed on the stack in reverse order 
000 50 : lso, a conplex rolsed to a coaplen 

000 51 3 power checks for (0,0) as the base 
0000 § : and signals the appropriate error rather 
4 7 3 then causing an internal Debug coding 

: ror 
00 $ ; B. Becker Oct, 1983 Toserted calls to dbg$succ_enum and 
00 $3 ; gb ggpred. enum to implement those built- 
000 S7 3 n functions. 


vos-000” 


: 
61: 

62 ; 

eS | 
65 ; 
ae 
09 68 i 
80 $3 ; 
0 71; 
000 rg ; 
0000 73: 
0000 74: 
0000 (75: 
0000 76: 
0000 «77: 
0000 «78: 
0000 (79: 
000 80 ; 
000 81; 
0000 Be ; 
0000 ; 
0000 84 ; 
0000 5; 
0000 «86: 
0000 ~3=s- 87 
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Page 
4-SEP-1984 we Of, 


B. Becker Dec, 1983 Inserted calls A 2 fixed binary 
arithmetic rout eg: 
B. Becker Dec, 1983 Added reyt ines. DBGSCVT_TUQUADWORD_TO_ bee 
and DBGSCVT vote WORD-TO_VALUE tO convert 
to Unsigned Q 3% Oc SSuor ds To fixed the 
Rade’ DEP QUAD 1 = 8000000000000000 for exampl 
B. Becker Jan, 138% e the MOD operation work correctly. 
K. Glossop Jan, 1984 Fixed. Seles complex add. 


MODULE mb ahh) 


This module contains DBGSPERFORM_OPERATOR, the routine that 
performs arithmetic operations. 


prrerer NOTE 


his module contains many definitions of constants and 
offsets that are duplicates of those in DBGLIB. 


This includes: 

Case labels (0.9, a LL, ADD_B_B, = the order of the 
MUS a‘ the same as the ORTSK ADD_L_L etc. def init fons 
in beet 1B. or else the CASE statement will no 

Offsets to fields within Value Descriptors fe.9- DBGSA_VALUE * URSDESC) 
If the fields of a value arecr ptor ts then these 
offsets must chan P pecere) ones Fins 

Literal constants - there are 4 0 RTS 
ORTSK_MAX_ROUT, Sacte “BAS! c. DBaSK Norte UUeIT (defined 
below). These values must correspond to the value 
for the same constant in DBGLI 

There are more than just these four needed. see “below. 


Se ORB wate 


I 12 


ee 


just for these four constants was not worth it. Since we already have 
several other things that must be kept consistent across DBGLIB.REQ and 
this module, I jus 


Ss 


duplicated the definitions here.) 


As you have noted, it turned out there are more things needed from 
DBGLIB, since you have taken it out, so someone else duplicated some 
more constants. 


DBGPERN Te 15-SEP-1984 23:45:1 AX/VMS Macro v04-00 Pa | 
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9 ; 
8 83 3 External routines 
3 91 -SBTTL declarations 
3 eEXTRN DBGSABS_FIXED 
9 eEXTRN DBGSADD FIXED _FIXED 
94 eEXTRN DBGSBLISS_INDIRECTION 
95 aioe DBGSBLISS Pirsenect 
00 8 «EXTRN DBGSC_ADDRESS_OF 
4 5 eEXTRN DBGSC_INDIRECTION 
0 4 ~-EXTRN DBGSC_SIZEOF 
000 9 ~EXTRN DBGSC_ADD_TPTR_L 
: 3 199 -EXTRN DBGSC_SUB_TPTR_L 
101 silos DBG$C-SUB_TPTR_TPTR 
44 196 -EXTRN DBGSOTV_FIXED_FIXED 
9 1 -EXTRN DBGSEQL FIXED FIXED 
000 104 -EXTRN DBG$GB_CANGUAGE 
444 105 «EXTRN DBGSGEG_FIXED_FIXED 
00 106 JEXTRN BGSGTRIFINED FINED | 
0000 10 eEXTRN DBGSLEQ_FIXED_FIXED 
0000 108 -EXTRN DBGSLSS_FIXED_FIXED 
0000 109 ~EXTRN DBGSMUL_FIXED_FIXED 
0000 110 -EXTRN DBGSNEQ FIXED FIXED 
0000 = 111 -EXTRN DBGSPREB_ENUM 
0000 iN -EXTRN DBGSSUB_FIXED_FIXED 
4 11 -EXTRN DBGS$SUCT_ENUM 
000 114 -EXTRN DBGSUNARY_MINUS_ FIXED 
0000 115 ~-EXTRN DBGSUNARY-PLUS_FIXED 
0000 13 -EXTRN PLISANDBIT 
0000 11 -EXTRN PLISCATBIT 
0000 118 -EXTRN PLISCMPBIT 
0000 119 -EXTRN PLISDIV_PK_LONG 
0000 130 -EXTRN PLISNOTBIT 
0000 121 -EXTRN PLISORBIT 
0000 $6 
0000 1 
0000 124 ; Invoke data definitions 
0000 125; 
0000 1 § SSHRDEF 3; Shared error messages 
0000. = SDEF 3: System error codes 
0000 128 SOSCDEF 3: Data definitions 
44 129 SSTSDE 3; Status code fields 
00 130 SDBGDEF ; Debug definitions 
000 131 SCHFDE ; atonal argument definitions 
O60 1 § SMTHDEF ; Math. Lib. definitions 
1 SSTRDEF ; String definitions 
33 1s 
000 1 Literal constants - these are the same as those in DBGLIB - see note above. 
op 1 (These used to be obtained from DBGCOMLIB.MLB, which was built from 
0 : DBGLIB.REQ. However, | decided that the overhead of building DBGCOMLIB 
1 
1 
1 
S.% 
we 
os 


Se ek et et kh oh oh) 
Be Oe BeBe Se Oe Se Oe Se Se 


WsWo—O Ooo 


oooo 
ooooo 


4 


(2) 


HALE CORT Te ae Oe aha 


declarations 


ocaare 


in 
intege 
-PSECT DBGSPLIT,BYTE,PIC,SHR,NOWRT 


max 
~hex_ 
“oct~ 


token$k 


a 
“a 
€ 
. 
. 
es a 
CF DOO— CUM TWOP. DOOAO 


STS TMAAAONnnmnnnnwmnw 
eee rR Or rere 


-ASCIC /DBGPERMOP\DBGSPERFORM_OPERATOR unknown routine index/ 
-ASCIC /DBGPERMOP\DBGSCVT_TRFA_TO_VALUE foreign tokencode/ 


errmsgi: 
163 errms 


164 


-ASCIC /DBGPERMOP\DBGSCVT_TQUADWORD_TO_VALUE foreign tokencode/ 


g2: 


ee Xs Ss 
BDOOQOOGOOGOSOOOOOSOSO — UM AMMF TFN OM OOR. KR. CO 


So 
Tew Vane s onuouwo yw 


ooOoorooo owmounm 
oooo-ocooo 
ooooooooo wenn w 
Cooooooooo vwwwrro 
OOoooooooeo 


e o 
ONE ADSC OMTNESR. 


ovwwmse ovwwwmwonm 
weuwown SS dt al 
a ee eh 2) wwe 
NTN OWw NTROoWM 
TFNUMNOO SS ae aa) *) 
a A al) ~wruow 
wvwwroo wwrnoo 
ovwunuw ouvrunm 
MANE. O MWA TOO 
al a 4 ab a Wau Vu 
TMMNOO TMM. O 
Neueow Naewnw 
Wn TOO MWMAMNODO 
ovur avreuouw 
TWNO wnwsoo 
weerOow re al 
TAWNO WTAWNO 
OwWMeO on Ow 
WAT MWMWNoO 
Vruy wMerO 
nvr al al da.) 

me 4S al werovw 
wvywno wvrwr 


wood 


-ASCIC /DBGPERMOP\DBGSCVT_TUQUADWORD_TO_VALUE foreign tokencode/ 


4: 
. -ASCIC /DBGPERMOP\DBGSCVT_TOCTAWORD_TO_VALUE foreign tokencode/ 


167 errms 


168 


~~ ww fOMWWOOVWEOOWOQOQACM- aa 
VYLOAaowwLOQOoOoeKwrwmoyrsy 
SOOSOOOSOSOSOSOOSOOOOSOOSOOSOOSOOSOSOSSOSOSSOSOSOSOSOSOSOSOSOOSSOOS oe KK Kee 
888999999999 SS999989 


- 
oun. OOo 
owns 


vweuowm 
www 


Nw Ow 
wFnoo 


wT 
wvwwroo 


owuwu 
MAWnr. Oo 


wasrwns 
TFOMNovo 


NeenOw 
MWA TOO 


ovrurk. 
Fund 


mw Ow 
wwrwno 


OM-O 
www 


vwwTrov 
NATE. 


Trwew 
wwrwno 


-ASCIC /DBGPERMOP\DBGSCVT_TUOCTAWORD_TO_VALUE foreign tokencode/ 


; Own Storage 


169 errmsg5: 
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14 173 ; 
0000 He hoa yy DBGSOWN ,NOEXE,LONG,PIC 
90000000 1? save_opera or entry: 
4 159 save_result: 
00000000 4 178 OS 
ope 
00000000 : 180 rie .LONG 0 
00000000 1 § «LONG 0 
01 185 scratchi: 
00000020 3} 184 ‘ 4 
185 scratch: 
00000030 0020 1 § ‘ 4 
; 187 argi_desc: 
00000000 138 . 0 
4 189 argi_valdesc: 
00000000 ote 190 . 0 
038 191 arg2_desc: 
00000000 0038 136 . 0 
003C 193 arg2_valdesc: 
00000000 tt 194 «LONG 0 
040 195 result_desc: 
00000000 0040 138 «LON 0 
0044 197 result_valdesc: 
00000000 0044 198 -LONG 0 
ok 199 operand: 
0000005C 004 00 -BLKL 5 
005C 01 work_octa: 
0000006C BRE o¢ -BLKL 4 
00000000 204 -PSECT DBGSCODE ,NOWRT,BYTE,PIC,SHR 


dbg$perform_operator 4-SEP-19 56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 
-SBTTL dbg$perform_operator 


344 
;GLOBAL ROUTINE DBGSPERFORM OPERATOR(OPERATOR ENTRY, ROUT INDEX, 
: LEFT_ARG, RIGHT_ARG, RESULT_ADDR): NOVALUE = 


DBGPERNOP .s iF ok jt DS $332'] AX/VMS Macro V04-00 Page 4 


Oooo 


io 
COOCOOSOCOCOSCOOOSOSSSSOCOSSOSOOCOOCOOOOOOCOOOOOOOOOOOOOOCOoOO 


COSOCSCOSOOOCSOOSOOSOSOOSOSOOSOSOOOSOOOOSOOSOOSOSOOOOSOSOOOOSSSoO 


FUNCTION 
Perform $he ggeretten indicated by ROUT_INDEX, and leave the result 
at RESULT_ADDR. 


There are assumptions made in this routine: 
1. Always check overflow conditions, and give informational message 
¢: The result will be the same type as the operand's type 
- Comparison result will be always a longword value 

4. There is no mixed mode operation, ie. +B, or noB +L, etc. 
some sort of conversion will be done before the operation 

5. Language rules always have precedence. There will be a specical 
routine to perform the operation for that language 


INPUTS 
OPERATOR_ENTRY <= A pointer to the Operator Lexical Token Entry for 
operator. 


ROUT_ INDEX - A case index eaatcor ing which operation is to be 
performed. The geese e values for this index are 
defined in DBGLIB. 


LEFT_ARG - The address of the left operand (or, i 
unary operators, the only operand). Th 
pointer to a value descriptor. 


n the case of 
is i 


RIGHT_ARG - The address of the right operand (in the case of 
unary operators, this operand is not used and its 
value will be zero. This address is a pointer 
to a value descriptor. 


RESULT_ADDR - A pointer to a longword which contains a pointer 
to a Value Descriptor which should be filled in 
with the result of the operation. The reason for 
the extra level of indirection is that in some 
cases we may build a new descriptor instead 
of using the one that is posses to us. In this 
case, we update RESULT_ADDR to point to the 
new descriptor. 


OUTPUTS 
The result of the operation is left in the result value descriptor. 
No value is returned. 


on 
. 


CDOSOSSSOSSOSSOSOSSSSSSOOSSSSSSOOSSOSOSOSOSOSOOSOOSOSOSSSOS 
POONA IMU BB BB ERE BWW WWIII OPINION) 3 3 3 OOOO 
RW OOONANE WIN @OOONOAUEWN $0 OONAU EWN 0 OONAUFWN OO OODNOAULWN ODOT 


SOOOSOSCOCOCSOOOOCOSOSOOOSOOSOSOOOOSOOSOOSOOSOSOOOOOOOOOOOOOOOOoOoOSOS 


0 

00 

3 ; Parameter offsets 
aie h3 bitpos = 2 
sist 4 operator_entry = 4 
O60 Obe rout_ index = 8 

000C left_arg = 12 

00000010 0000 right_arg = 16 
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63 result_addr = #9 


token_name = 


; Register usage 

: " VMS Address of the left operand in value descriptor 
r VMS Address of the right operand in value descriptor 
r4 VMS Address of the result in vlaue descriptor 

r5 Temporary result 

r Temporary result 

If the operands are packed, then rg 

r 


r8 


argi vms desc. 
arg2 vms desc. 
result vms desc. 


PSL 
FU Floating Underflow Trap enable 
IV Interger Overflow trap disable 


FC e ENTRY Sogiper tara apereter . Woy 6 :P5.°8 62 r6,r7,r8,r9,r10,r11> 
6D OOO01BBE'EF ODE MOVA icer msg_handler,(FP) ; Enable trap exception handler 
0040 8F 68 BISPSW #*x40 : Enable Floating Underflow Traps 
OOOO0000'EF 04 AC MOVL operator_entry(AP) ,save_operator_entr 


y 
3; Save operator entry pointer in static area 


OTE: 

The block of code below uses absolute offsets such as 16 to get at fields 
inside of a Value Descriptor. This is because of difficulties of getting 
the symbolic definitions from DBGLIB into this module. 


So, until this is fixed, the block of code below has to be changed whenever 
the definition of a Value Descriptor changes. This just affects the 
code between the asterisks. 


FRR AAAA AAA AA AAA AAA REAR AAAAAAAAAAAAEARAAAAEAAAAE AAA EAARAAEAETAA AEE 


WA.AN AA AIAILAIIPINIPIPOPINININIPINPINININININYIDINPYPINPIPIPINYIPIPYPIPIPYPYPINPYIPIPUPUNINPININYD 


DBOOOOOOOO0O0O0 0 OOOO O00 0009 09 69 09 09 09 09 09 SI NI NII SII NS NOAA AO Oo 


DONA VE WIN 2 OOD NAME WIN 9 OD NAME WIN 0 OO NAF WIN 9 OD NAME WN OO OONOAOUE 


52 C AC DO MOVL left_arg(AP),r2 ; Get the address of the left argument 
00000034"EF 52 00 MOVL r alg\_valdess ; Save the value descriptor address 
5214S ADDL2 #20,r : Get pointer to VMS descriptor 
OOOO0030"EF 52 00 MOVL r2,argi_desc ; Save the VMS descriptor address 
26 04 A200 MOVL 4(r2),¢r ; Get the pointer to value 
5 10 a D MOVL right_arg(AP) ,r3 ; Get the address of the right argument 
5 i) TSTL r ; Test to see if there is a right argument 
= 5 BEQL get_result_addr$ ; Get the result address 
eoneeese "tr 53 4 MOVL r srge_valdesc ; Save the value descriptor address 
ee. te ADDL2 #26,r 3; Get pointer to VMS descriptor 
00000038'EF 53 00 0 MOVL r .grge desc ; Save the VMS descriptor address 
53 04 A3 00 0 MOVL 4(r3).r3 ; Get the pointer to value 
10 get_result_addr$: 
54 14 AC 00 1 MOgL result_addr (AP) ,r4 ; Get the address of the result 
$ d0 beb 1 MOVL (r4).¢r ; Extra level of indirection for result 
eoocense "tr 4 00 36 1 MOVL r4,result_valdesc ; Save result value descriptor address 
4 14 CO 005 1 ADDL2 #26, r4 
00000040"EF 54 DO 005 1 MOVL r4,result_desc ; Save the VMS descriptor address 
4 4 AG >? : 1 MOVL 4(r4),r4 ; Get the pointer to value 
00000004'EF 54 OD 1 VL r4,save_result 3; Save the result pointer 
6E 1 peeeeeeerererererererer>&ltereeeerreeereeedekeareeeeeeeereeeeeeeeereeererereres 
006E 1 


N 12 
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oF 9 3; Case on routine index to perform the actual operation 
O11C BF «401 O08 AC AF : CASEW rout_index (AP) ,#ort$k_min_rout ,fort$k_max_rout 
029€' bgn: WORD ADD_B.B - bgn | 
02A8' 007 4 «WORD ADD-B0_BU = bgn | 
8 B2' 0079 5 WORD ADD-W_Q = bgn 
BC‘ 78 6 WORD ADD-WO_wu - bgn 
02C6* 007D 7 «WORD ADD-L_C - bgn 
02D0° OO7F 8 «WORD ADD-LO_LU = bgn 
02DA' +} 9 «WORD ADD_F_F = bgn 
O2DF' 3 0 «WORD ADD_D_D = bgn 
8 E4* 0085 1 ORD ADD_G_G = bgn 
EA’ 0087 § ~WORD ADD_H_H - bgn 
O2F0' 0089 33 .WORD ADD-FC_FC - bgn 
O2FC’ 0088 34 «WORD ADD_DC_DC = bgn 
0308' 008D 35 -WORD ADD_GC_GC = bgn 
0316" OO8F 36 «WORD ADD-HC"HC - bgn 
0324° 0091 37 -WORD S$UB_B = bgn | 
Oaee. 0093 38 -WORD $UB_B0_BU - bgn 
0338' 0095 39 -WORD SUB_W - bgn 
0342° 0097 40 WORD SUB_WO_WU = ban 
034C' 0099 41 WORD SUB-L_C - bgn 
0356" 0098 4 WORD SUB_LO_LU - bgn 
0360' 009D 4 -WORD SUB_F_F - bgn 
0365" O09F 44 eWORD SUB_D_D = bgn 
036A" O0OA1 345 WORD SUB-G-G - bgn 
0370" OOA3 46 eWORD SUB_H_H - bgn 
0376" OOAS 47 WORD SUB_FC_FC - bgn 
0382" OOA7 348 .WORD SUB"DC"DC - bgn 
O38E' read 349 ~WORD SUB_GC_GC - ban 
039C* OOAB 350 «WORD SUB_HC_HC - bgn 
O3AA’ OOAD 32) -WORD OlV~B 6B = bgn 
0384" OOAF 3g -WORD D01V~80 BU - bgn | 
03C7° 0081 5 WORD ODIV-w - bgn 
0301' 00B3 354 -WORD OIV~WO_wU - ban 
Bere bou3 55 -WORD OIV-LC - bgn 
O3SEE* 0087 56 WORD DIV-LO_LU - bgn 
0416' 00B9 57 WORD DIV~F_F - bgn 
0418" 00BB 58 «WORD DIV_D_D = bgn 
0420° OOBD 59 -WORD ODIV_G_G - bgn 
0425" OOBF 60 -WORD DIV_H_H = bgn 
042C* 00C1 61 WORD ODIV-FC_FC = bgn 
0465° 00C3 206 eWORD DIV_DC_DC = bgn 
Bede, Bote 6 -WORD ODIV_GC_GC - bgn 
555° 00C 64 -WO DIV_HC HC - bgn 
05D4' 4 65 - WO MUL"B 6 = bgn 
8206, 00CB 66 . MUL-BO BU - bgn 
Oo ' 00CD 367 ~WORD MUL"W Q - bgn 
601° OOCF rt: . MUL-WO_ WU - bgn 
061A* 00D1 6 ° MUL-L_C = bon 
0624° 0003 70 WORD MUL-LO_LU = bgn 
296, 005 71 : MUL" F _F = bgn 
Ree * 00D7 " MUL_D_D = bgn 
64C' 0009 37 ; MUL"G"G - bgn 
0652" 00DB 74 : MUL_H_H = bgn 
0658" OO0DD 75 ‘ MUL"FC_FC = bgn 
0676° OODF 76 ° MUL_DC_DC = bgn 


a ee ee a apeiron wea erases 
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6B4° OOE 77 -WORD MUL_GC_GC = bgn 
eF8: QOS 378 "WORD MULTHCTHC = ben 
C 43 7 «WORD MOD-L_C - bgn 
756° OOE 80 «WORD MOD-LO_LU - bgn 
rer 34 1 «WORD REM-L_C = bgn 
779° QOEB ¢ -WORD REM-LO_LU = bgn 
791° QOED ORD SHIFT_CEFT_L_L = bgn 
799" OOEF 84 «WORD SHIFT-RT_L“L - bgn 
7A8° OOF 1 5 ORD SHIFT-RT-LO_LU = bgn 
700" of? Hf WORD POWER-W_Q = bgn 
O7E1° OOF 8 «WORD POWER-L"L - bgn 
14a OF? 3 -WORD POWER-F-L - bgn 
801° OOF 9 «WORD POWER-D-L - bgn 
pete. OFB 390 WORD POWER-G-L = bgn 
nt * OOFD 391 WORD POWER H-L - bgn 
838" OOFF 3 WORD POWER FC_L = bgn 
0851° 0101 9 ~WORD POWER_DC_L = bgn 
086A" 0103 394 «WORD POWER-GC"L - bgn 
0887" 0105 395 WORD POWERTF_F = bgn 
0898' 0107 396 -WORD POWER“D7F - bgn 
08A9' 0109 397 «WORD POWER-F-D - bgn 
088A" 0108 338 -WORD POWER-D-D - bgn 
08CB' 0100 399 WORD POWER-G-G - bgn 
OBDF*' O10F 400 WORD POWER-H-H - bgn 
O8F3' 0111 401 WORD POWER-FC_FC - bgn 
baer, 0113 ret WORD POWER_DC_DC = bgn 
O95F' 0115 40 WORD POWER GC"GC - bgn 
099C' 0117 404 WORD CONCAT_T-T - bgn 
09DC' 0119 405 WORD EQL_VT-vT = bgn 
O9EE' 0118 406 «WORD EQL-T - bgn 
QA0D' 011D 407 «WORD GEQ"VT_vT - bgn 
OAIF* O11F 408 «WORD GEQ"T_T - bgn 
OA3E’ 0121 409 WORD GTR_VT_VT - bgn 
0A50° 0123 410 WORD GTR-T_T - bgn 
OA6F' 0125 411 -WORD LEQ"VT_vT - bgn 
0A81' 0127 $1 -WORD LEQ"T_T - bgn 
QAAO' 0129 41 -WORD LSS-VT_VT - bgn 
OAB2' 3158 414 «WORD LSS_T_T - bgn 
OQAD1' 012D 415 - WOR NEQ"VT_VT - bgn 
OAE3' O12F 416 -WORD NEQ-T_T - bon 
0B02' 0131 417 -WORD €EQL_B-B - bgn 
OBOF' 0133 418 ~WORD EQL-W"W = bgn 
0B1C* 0135 419 -WORD EQL-L“L - bgn 
0829" 0137 430 -WORD EQL “FF - bgn 
¢: 139 421 «WORD EQL7D"D - bgn 
0B43' o138 +56 -WORD €EQL"G"G - bgn 
0851" 0130 as -WORD EQL-H"H - bgn 
OBSF* O13F 424 »WORD EQL-FC_FC - bgn 
0873" 141 425 -WORD EQL-DC"DC - bgn 
87' 0143 4 $ «WORD EQL"GC"GC - bgn 
7. 145 4 -WORD EQL-HC~HC - bgn 
3° 0147 428 -WORD NEQ"B 6 - bgn 
paco: 0149 +93 -WORD NEQ"W"W - bgn 
CD' 0148 430 -WORD NEQ"L-L - bgn 
papa 14D 0431 -WORD NEQ"F-F - bgn 
E7* O14F £3 -WORD NEQ"D"D - bgn 
OBF4' 0151 43 -WORD NEQ"G"G - bgn 


B3iee iF ervessaeipachenmoc.man:1 2% 19, 


ws o23#0034 oz 
_— tepuene aos tte 
VVVY > => > = O23 I034I03 1: woz 
| =) @#eeoee ees OB ttt 
=Z © ti O34 BOUTEe3S BOUTOZS BROUTOAZ wrovrocoer>rrse-e- 11 SEaeceozio 
Svuwv tiriorneesrtesrconere+esesepeorerpe+;_ spit otett @aZzaoggqgoooaaea2z#oood fits 


POR O IAA ORS AI a dd 8D DD DD rt at at rt et et et nt Ot ot nd Ot ot ot ot SE 


FNOPR- DOO CIMT OR. DHOOM TN OR. ODO DWDRAOMK MUM TN OR- DOO CIM TIN OR. OOO 


vwvwvvvwvwvwvvr rr wvwvevvevwvwvwvevvvve rs 


PUNE.” O MO & — MUN. oO ty et ew wpe tT et ne oe ee Pe CQL K—MMPO MOOurm 
MIMAIAAIUNIN OOOO OOOOPR-PF-P-EPEP-PR. BR. DDMDWADDODDAOOOOOOO CRI CeCe COODODODODODODOvwW 
fe ee ee ee ee cel eel ee ee el eel etl eel oe el eel, ee el el ee ce ce eh el el el ee eh el ee el ne ee eh ee ce ek oe ee ee el el el el ee ll oh eee eh el ee oe ee ee el 


COOOOOOCOCOCOOOSOSOSSOSOSOSOSOOSOSOSSOSOSSOSOSOSOSOSSOOOSOSOOSOSSOSOOOSOSOOOOOOOOSoO 


-nrereerreeeee§esee§eee#es5e.ee @ ree eeeee#e#eeeePeeerPePee#ew_qseteeee eeee§ee@eerese#eege#e#e.e®# eoeeee#es ee e& & = 
NOT OWT — WODONVO WOON VY TOM. VO OTN OO OMOWUS OS Ot VOT DOWN Ve WON 
O-PS OP-F-. DWH FMV V OW 4 COK— MM TNMOR. 
VBVVVVYVVVUVYVYVVVVVYVVAaaaaAaaaaaa 
COOOOOCOCOCOOCOOCOSOSOSOSCSOCOOOoOoOoOoO 


DPE T ten RRR et HE 
a 


dbg$per form_operator 


oat<a@ 
aaaa 
oooo 


i 
' 
j 
| 
HUM TN Or 
www 


dbg$per form_operator 


c c 
2 S 
Ccccccccccccccccccccecccecccccecccccccccccc ccc ececccccccccce 
poude de Je Jeo le t= de Je le Jeo dete To Je dele Je de Jeo Je Jo de Je tebe do Je Je Je Je tele tele le leulesleslesleis Mosul ouleuk Me ouleul=ilesleleulou)o) ou) ou) oa) 
DBOAHBABAAAHAOHBAAAHHHHAAHoHHAHoHoHAHAHAHSAAaAaaaeaaaeasasDa e2aoa ABoeooaoaoassesaso 
— 
ee ee ee ee ee ee ee ee ee ee ee ee ee 
” uw 
t ” 
= VVVYU = i 
@QOz34uwovurTovurt YVYULOU ac w _ - [> 4 
eee tceee te tt MOBouw8eoetuwscvort - w w (ve) _ 
MAMMMMMMWMWMWWM ttittititeete_e >a. ——- Yrrew aao3zu 
BUOBS2SESEBeeooooasssesss —a— www Otuw tf suse 6 6 8 
22222222222 257507502570325059559075759029 te ONKNWr Or YU tt wosan 
bd ad Od Od Od Od Od Od Od et Od dd dd dd dd Rreoe § hw § by Ljomom ttt 
AtEZEESEEZESEEESEZTEZTZTA0AAAaAaAaAaA0a0o VGOWWRE— Wer OW F-20008 
MBO frisreterereecesceeeeeew eee eae eat Ww Ie Mw uF OO EE 
Bio ttt >>>>>>>>>>>> >>> rrr > > >> O38 Ve OVE SWUM YOWENK ZW ee 
'' W340 8eeeeeeaeaceceaeaeaeeeaeaeaearaoaom rit ttt hem hl C8 ht low hth) ll 
eee 81 1 tt eee dee eee eee eee eee EIN NNYNOOFKUICG §+-COC—ONOOOre-- 
$$" + 44 fe ES TT ST TEE TE TT TTT TTT TT eT eh AR EEE ee 
Z2SZOOCOCOSO XDI IIBIII BBB BD BBB DB BD BD BB BD Be eee 1M OWI IZ DEEN OOD 


NPT NDE ODD — UM T WN OR. DHOOM TIN OR. OKO — CUM TN OR. ODP O CUM FN OR. ORO CIMT OR. 
PAO AOA AOA AOD OOOO} INICIO OIC AF SF NT AT TT TT 
PPP PFT TNWDDAWNDANDDANDDDDDADDDVLVABVLVPULVLVPVLVULVLULVLVLVLVULVELVELVULVLVELVELVELVEL VEL ELVELVELVELVELY 


WEA DOK MAP. O MOU K— MNO OOLK— MME ODO — MMA ADOLK— MMP ODO K— MMP OO MOuURK Mm 
VPYEVYVUVOOOOOCSCOCCWW WWW 6 QOD ODOC OO GE NININUINUINUNINI CUI 
i NUINININININI NI NINUININICINICUININICUINININICUNINCNCUEN 
CQOOCOOOCOOCOCOCOOOOOOOSCSOOOSOSOSOCOCOCOOCOCOOSOOSOSOOOOCOSOSSOOCOSOOOOOOOOOoOO 


Retre v04-00 Page 1g 
SRC JDBGPERMOP.MAR; 1 (3) 


S 


QaSEp-19b6 93:58:07 EDeaue 


E 13 


dbg$per form_operator 


:8B001 
;88001 


t taopreveveues 
ow 

wx BAA0A0a08a 

[: 4 a pt oe el el rerrelrelrel elie) 

a i « - a wu o oOo “a. 8 3 ee Oe OC OK OE OO 

- > a —- > a a “ tee oo a ee ee) 

> awwor DPD AYIwIAr [ 72) — '('e-<ata wo &  wueuwuuuuri_ 

—_—jor tt | jor ££ ttt pe] ' Se Sevtats “ws #e0ee0eeeeess 

(0 @ @&o@aoo fit eEeoeoe 22 BeMwMMEMMRE a ee DSO ZE EO ZOOOOCOACCaSa 
See CvvvVve es esQvvvw ae eRe eee Oe FL 2 J 
VBVVVZSZFZGOWUWWWweEadkaagdFtaaaaaa ititititniitiekoa MeaA ZA S220£ xe uuu 

22S Zt WWIIWOOOO fit tt tt 8 8 8 8 oR ee OMG eee FF fF Bat 8 ttt ttre eee 

“es 88 MOOO tlt lt OOo >> 000000 oe ee ee 2 Oece>>>> | reese 

eh ee ge ce ed ed el ee; 2; 4-4-4 ay) 7. ee 

WWMWWMMMAMWUIWIUUIMNMMOD@ I>da ae IOTOMVG ZIIGCIOVOre eK VIO SE ee eVUW<E CY OOD I> IGM 

eww eee eee tee ee ET RE Et tet tt peer EL EE EL EEL EET RA per 

92Q00000000000000040 4 %F OD W200 4 JOoOwWZVU9 JW IMMOwZD77D 7A DB <e eV ET OwZz oY 


DOO MNT DOR-. DHOOM TM OR. DAO CUM FN OR. DHOK— CIM TMOR. OHO CIM TNOR. OOO UMS 
FTOMMMMMMNTINOOOOOOOOOORP-PP_F_PF_P_P_P_R. DAD DWDDDWDDDDAOOOOOOOAOOOOCOCOCSO 
LLVLULULVLULULVLVLVLULVLVLVLVLVLVLVELVLVELVUAY LVL ULL VID ELVA LEUPEPTIN OO SO OO 


ODO — MVOC OO — MUO MOL — MMF. ODL — MMA. O MOU K—MMAKLO MOL K— MMP OMe — MM 
VWI VIN SF SF SFT TTT TUNMNNUNNUNUNIN OO OOOO OOR-LAAAPRR.R. DWDDWDODWDDDOOOAOOOAOOO CESS 
NOUNCIONOSOIOIOCIOICIOIOIONIOICIOIOIOIONIOIONI OI ONIONIONIOIONIOIOIOIONIOIOIONIOIONIONIONIOINIONIOICIOIOIOICIOIOIOIOIIEOIOIS 
OOOOOOCOOCOCOCOOCOCOOCOOCOCOOCOOOSOOOOOOCOOOOOOSOOCOOOOOOCOOCOSOOOOOOOOOO 
-reeeeqeeeeqeeePegeeeePees*s. roeeeePeeeeee*eeeree$eeee$ee@eeeee®e#e#e§oe@eeP@eeeePes#$e#eseee#eee#e#e#e#es#e 
WD ff ODOVVUMnr K— VK MU Ore OLE WON VK VOW VO CWT ORK NOOK NOMAR — OM u 
SOW KK VK PNT ODDO OY IMWPNA QO MTF ON - DON WOMTOLOK— UM TOR. Od OVW — MT OF. 


el ee el eel eel el el eel el el el cee ee ee ce eh ee ce eel el se cee el ee ce el eel eee oe ee ee ee oe ek ee ee oe ee ee ce ee oe ol oe oe el el ce el el el ee oe el oe 


Neva 


17736-1388 93:43:18 poe Macro V04-00 Page 13 
dbg$per form_operator 4-SEP-1984 23:56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 (3) 
1A99' 02A9 605 «WORD LEQ_FIXED_FIXED = bgn 
Vag" AB 636 «WORD GEQ_FIXED_FIXED = bgn 
1892 Ap 4 BRw unknown_rout_ index 
B 609 int_overflow: 
52 o's at * dO B 610 MOVL save_operator entry,r2 
oc Ag 3 M oi) at token name (rey or 
r 
4 DD BD 18 PUSHL #1 
000286A3 8F DD BF 614 PUSHL eqbgs iintovf 
00000000'GF O03 FB CS = 615 CALLS #3,G*CIBSSIGNAL 
04 33 618 RET 
CD 018 div_by_zero: 
00028240 8F DD 0 ce 61 PUSHL #dbg$ Glydyzere 
00000000'GF 01 FB 8 D 620 CALLS #1,G*CIBSSIGNAL 
04 9 . ? 1 RET 
0208 6 § shift_count_negative: 
OOO28ECO BF DD O2DB 624 PUSAL agees sfentneg 
00000000'GF 01 FB O2E1 625 CALLS #1,G*CIBSSIGNAL 
Of OSES 652 Wes 
02E9 628 string_truncate: 
52 O0000000°EF DO O2E9 629 MOVL save_operator_entry,r2 
52. 0c Ag DE ost? 630 MOVAL token_name(r23,r 
81 bb ore 32 PUSHE 
000286AB 8F DD O2F8 638 PUSHL #dbg$_istrtru 
00000000'GF 03 FB . A} 633 CALLS #3,G*CIBSSIGNAL 
0305 636 branch_ret: 
04 00000000°EF 91 0305 637 CMPB DBGS$GB_LANGUAGE, #DBGSK_BASIC 
01 13 030C O38 BEQL basic$ 
" 308 rat basic$ adi 
64 64 CE OQ30F 641 MNEGL (r4), (r4) 
04 031 on¢ RET 
0313 bee 
031 645 seeeeeeeeeereerereeeee eee TAAAAAAARARARARARARARAR AAA e eee AAA AAA AeAA HEAT 
031 646 ; 
Bate ot : A DOD and ;&e 8 3-8 @ & 4 
3! ot8 PITISI SITS I Titi iii iii iii iii iii rrr ree 
gy be 
O31 $36 : Additive Operators - Addition 
3 654 add_b_b: 
64 63 62 81 1 655 ADDBS = (r2),(r3),(r4) P 
01 1D 031 636 BVS add_b$ ; Branch on V bit set 
” SstR 82 add_b$ Bi: 
FF93) 51 Me 639 ~ "BR int_over flow 
1D 661 add_bu_bu: 


rer Earned, eee y tee jekpang piers a oaatee ; 


DBGPERMOP 15-SEP-1984 245:1 AX/VMS Macro V04-00 Pa 14 D 
v00-000 dbg$per form_operator arSEp- 1984 33:63:15 DEBUG. SRC IDBGPERMOP.MAR; 1 - (3) Vv 
64 63 $¢ 81 1D 66 ADDB3 (r2),¢73),0r4) 
oo } 66 BCS add_bu$ ; Branch on C bit set 
04 664 
4 665 add_bu$s: 
FF89 = 331 4 066 int_over flow 
7 008 add_w_w: 
64 63 be Al 7 66 ADDWS = (rr 2), (rr 3), (r4) 
1 1D B 670 BVS add_w$ 
04 D 671 RET 
reve 31 O85E 78 *9-Y aay int overfl 
nt_over flow 
5 8he : 
83 1 675 add_wu_wu: 
64 63 62 Al 0331 976 ADDW3 = (r2),(r3),(r4) 
01 1F 8 3 67 BCS add_ 
04 678 RE 
0 ; 679 add_wu$: 
FF75 31 033 680 BRW int_over flow 
0338 681 
0338 et add_l_l: 
64 63 62 C1 0338 68 ADDL3 (r2),(r3),(r4) 
01 «1D O33 684 BVS add_($ 
04 341 685 RET 
034 686 add_\$: 
FF6B 31 034 687 BRW int_over flow 
034 688 
b3e3 689 add_lu_lu: 
66 63 62 C1 0345 £690 ADDL3 3 (r2),(r3),(r4) 
01 =F 0349 691 BCS add_(u$ | 
04 348 69 RET 
baee 6935 add_lu$: 
FF61 31 034C 694 BRW int_overflow 
baer 695 
34F 696 add_f_f: 
64 63 62 41 034F 69 ADDF3 (e2),¢r3),(r4) 
04 0353 69 
O32? 344 add_d_d: 
64 63 62 61 354 0 ADDD3 (r2),(73),(r4) 
04 3328 701 RET 
359 702 add_g_g: 
64 63 62 41FD 0359 70 ADDG3 (r2), (73), (74) 
04 5E 704 T 
2F 209 add_h_h: 
64 63 62 61FD F 7 $ ADDH3 (r2),¢r3),0r4) 
04 364 7 RET 
0365 708 
65 008 add_fc_fc: 
64 63 6 41 65 10 ADDF (r2),(r3), (74) 3; Add Real Part 
04 AG 0403 O04 A2 41 69 711 ADDF3 = 4 (25,4078) 44) : Add Imaginary Part 
04 0 at ET 
71+ =7135 add_dc_de 
64 63 62 61 71 714 ADDD (r2),(r3),(r4) 
08 AG «608 AS: «(08 A261 s0375)—Ss 715 ADDDS 8(r25,8(r$) ,8(r4) 
4 7¢ rs RET 
7D 717 add_gc_ge: 
64 63 62 41FD 7D 718 ADDG3 (r2), 073), ¢r4) 


‘Sue Teese _ — a a 
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v04 dbg$per form_operator 4-SEP-1984 23:56:47 (CDEBUG.SRCJDBGPERMOP.MAR; 1 


08 AS 08 AS” = 0B A2 “— ¢ 719 sors? 8(r2),8¢(r3) ,8(r4) 
; 1 add hc he: 
64 63 62 61FD 7 : ADDHS (r2), (73), 064) 
10 AG «610 ABS.—«10 Ad 61FD 7 ADDH3 16(r2),16(r3),16(r4) 
04 0398 72% RET 
39 5e 
4 f 5 3; Additive Operators - Subtraction 
99 7 : $ub_b_b: 
64 62 63 83 0399 730 SUBB3) = (r' 3), (r2), (4) 
eS ip ee Ga 
O3A 7 ‘ sub_b$: 
FFOD 31 8 rs 4 : BRW int_over flow 
OA 7 § sub_bu_bu: 
64 62 63 83 O3A3 7 SUBB3) = (3), (2), (4) 
01 1F O3A7 738 BCS sub_bu 
BEE aun put 
Ss ud: 
FFOS) «31 «(OSAA «7461 SC BRYsint_overflow 
O3ap 768 sub_w_w: 
64 62. 63) AS (O3AD 744 SuBW3 (Fr 3),0r2), (4) 
01 1D 0381 745 BVS sub_w 
*: tat oR wht 
SUD_W3: 
FEF9 31 0384 748 ~ BRW int_overflow 
$387 re sub_wu_wu 
wu: 
64 62 63 A3 0387 751 ~"""SuBW3 = (3), (2), (rr) 
01 1F 0388 £36 BCS sub_wu 
ME TE sue wt 
ud _ wus: 
FEEF 31 O3BE 755 \ BRW int_over flow 
B31 89 sub.tt 
su 3 
64 62 63 (C3 ite 38 -""""SuBL3 (rr 3) , (2), (rr) 
01 1D 03¢5 75 BVS sub_($ 
© EEE aun us: 
u HY 
FEES = 331 cB 16 in BRW int_over flow 
CB 764 sub_lu_lu: 
64 62 63 C3 O3¢B 765 SUBL3  (r3), (r2), (4) 
01 #1F O3CF 766 BCS sub_ (us 
BE) ue tua 
su ud: 
FEDB ss 31 3b 12 x BRW int_over flow 
D5 771 sub_f_f: 
66 62 63 43 305 778 emi SuBEs (P38), 2), (ra) 
- +4 Ae, sub_d —" 
64 62 63 63 O3DA 775 ~~ SUBD3 (r3),(r2),(r4) 


co 

_ 

Ww 
Ht 
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yore 000 dbg$per form_operator reeset Pi $3:63:) DEBUG. SRC JDBGPERMOP .MAR; 1 . (3) if 
04 De 76 oe RET | 
u $ 
64 62 63 43FD DF rs ~8.9 suas (r3), (72), (74) 
E 780 sub_h_h: 
64 62 63 63FD ER 781 -" "SuBH3 (3), (r2), (rd 
04 EA f 4 RET 
EB 84 sub_fc_fc: 
64 62 63 43 EB 785 SUBF (r3),(r2), (rd) 
04 A6 04 A2 04 AS 43 fe f : SUB 4(73),4(re) 4074) 
F 788 sub_dc_dc: 
G4 62, 63 6 O57 789 ee OE BD3 | (r3), (2), (ra) 
08 AS «(0B A2) «COB A 6 FB 790 SUBD3 «= 8(r' 35, 8(r2) ,8(r4) 
4 049 131 ; RET 
su c.gc: 
G4 62, 63 43D 8603 79 HM 663) ce2), 64) 
08 AG «608 A208 AS 4360 a1 794 SuBG 8(r3),8(r2) ,8(r4) 
411 796 sub_hc_he: 
64 62. 63 63FD 0411 797 > SUBH3 (3), (2), (4) 
10 A4 10 A2. 10 AB 63FD 0416 198 SuBHS 16(r3),16¢r2),16(r4) 
Gtit 806 
Bete 4 FRR AAA AAR EERE RARER AAA AAARAEAEREARAEA EE 
4iF : 
Baie ape : DtIviIiIéoeE and 824: 3 2 bes 
O41F 806 ITIIIITITITIIIIII TITTLE LLL TLL ELLE 
041F 807 
041F B08 
Rete 503 3 Multiplicative - Division 
041F 811 div_b_b: 
64 62 63 87 O4IF 1 DIVB3 (r3), (2), (r4) 
01 1D 04 3 81 BVS div_b$ 
¢ 3 is div_b$ sg 
Vv 
FE87 = 331 Oe 6 18 > BRW int_over flow 
¢ 3 i div_bu_b 
52 62. «(OA Oe SRG Siu -bubu: (12) 0 ; Lero-extend Dividend 
5 6 9A 042C 20 MOVZBL (r5),r ; Zero-extend Divisor 
0 13 Be F 6821 BEQL div_bu$ ; Test divisor is not zero 
55 52 53 C7? 0431 8 : DIVL3 r3,F2,r5 
64 «55 «90 0435 MOVE 5. (rd) 
BS itu: 
ud: 
FE91—s «331 " ? § “e BRW div_by_zero 
43C di : 
66 62 63 A? 04 § HM us (e380, (r2) oC r4) 
1 1D 044 0 BVS div_wS 
04 044 eS RET 
44 2 div_wS: 


icing 


52 


55 


64 


64 


64 


64 


64 


62 


62 


55 
55 


64 


62 


62 


62 


dbg$per form_operator 
FE6A = 31 rh ; BRW 
44 5 div_wu_wu: 
6 HS 44 § MOVZWL 
6 44 MOVZWL 
0 1 44C 8 BEQL 
3 C 44 9 DIVL3 
Rhee eee 
456 g div_wu$ 
FE74 §=331 $28 tz BRW 
459 45 div tl 
63 C7 0459 a6 DIVL3 
01 1D 045D 4 BVS 
04 O45F 848 RET 
Ree eh div_l$ 
FE4D = 31 Ree ae RW 
46 852 div_lu_lu: 
L 
63 =~5 bee3 Ha zo vee 
1A 13 0465 854 BEQL 
OB 14 0467 855 BGTR 
55 D4 0469 856 CLRL 
63 01 0468 857 CMPL 
046E 858 
17 1A 046 859 BGTRU 
13 37 0072 Bet BRB 
0474 B66 ext_prec_ div: 
62 DO 0474 86 MOVL 
2 D4 eg 4 864 CLRL 
6 7B 0479 865 EDIV 
04 1F QO47E 866 BCS 
04 0480 67 RET 
0481 68 div_lul$: 
FE49 =—-331— 0481 69 BRW 
0484 70 div_lu2$s: 
FE29 «31 pos 4 BRW 
beB) 8 set_quotient: 
55 00 ot H 74 MOVL 
04 ? A e RET 
488 58 div_f_f: 
63 47 04 8 DIVF3 
04 rh + RET 
35 1 div_d_d: 
63 67 0490 ¢ DIVD3 
04 t3e ? RET 
495 5 div_g_g: 
63 47FD 0495 § DIVG3 
04 i i RET 
498 89 div_h_h: 


J 13 


15-SEP-1984 
4-SEP-1984 


int overflow 


(r2),r 
$f on 
wu 
(33 (r2) 05 
r5,(r4) 
div by_zero 


(r3),¢r2),(r4) 
div_($ 


int overflow 


(r3) 
divlul$ — 
ext_prec_div 
r 

(r3),¢r2) 
set_quotient 
r5 ; 
set_quotient 
(r2),°5 

r 
(r3),75,(r4),r2 
div_lu2$ 
div_by_zero 
int_over flow 


r5,(r4) 
(r3),¢r2),(r4) 
(r3),0r2),0r4) 


(r3),¢r2),¢r4) 


33 :30:4 
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Check for divide by 0 

Branch on divide by 0 

Branch on +Divisor 

Assume zero result ae 
Compare Divident and -Divisor 
-- (divided by sarge number ) 
Result is 0, set i 

Result is 1 

Set it 


Divident is quarward 
Perform the DIV 


Set result 


Page 17. 
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64 62 63 67FD 90 DIVH3 (r3),¢r2),0r4) 
04 a 4! RET 
63 45 ry 38 divite.fe: (r3),(r3),r5 X = B<1>*B<1> + B<2>*B<2> 
r r3),r 7X = * * 
56 04 A304 83 45 04A5 895 RUS 4(735,4(r3) 6 
MM Ba Bb ae RRP ene 
r 
4 3 Bi i: BEQL qty fc$ 
a: 4 48 9 mur (r33,(r2),°5 3; Real Part Division 
56 04 A2 so a3 43 4B 300 MULE 4 (135 ,4(r2) 476 + C<1> = (A<1>*#B<1> + A<2>#B<2>) / xX 
oc 
oo 36 83 29 bee $0¢ DIVES Fi .ré, (Pr) 
04 A2 63 45 0464 90 MULF (r$) 472), 65 3 Imaginary Part Division 
56 62 55°" 3 $3 acce one me 4(r35,(r2) 76 3 €<2> = (A<2>*B<1> = A<1>*B<2>) / xX 
ro,r 
04 A4 55 51 t$ 401 906 suere r1,75,4(r4) 
“ nh 308 div_fc$ a 
v_fc$: 
FOF3) = 31 O07 +4 Fs BRW div_by_zero 
4DA 911 div.de_de: 
Q00000010'EF 63 63 65 O4DA aig MULD3 =(r3),(r3),scratch! 3 X = B<1>*B<1> + B<2>*B<2> 
00000020'EF 08 A3 O08 AS 65 O4E2 91 MULD3 8 (r35,8(r3).scratch2 
55 00000020'EF 00000010'EF $1 O4EC 914 ADDDS = scratchi,scratch2,r5 
a an ee ae 
C 
00000010'EF 62 63 65 O4FC 917 MULD3 (r8t (r2),scratchi : Real Part Division 
00000020°EF 08 A2 08 AS 65 0504 918 MULD3 8(r35,8(rd),scratch2 : C<1> = (A<1>#B<1> + A<2>*B<2>) / X 
(oto ee. HO00DSO EF. $5 POST 980 paups  SSrarcueees ceaye 
r5,scratch2,(r 
00000010'EF oS A263 65 0521 921 MULD3 $) (8(r2), scratch! 3 Imaginary Part Division 
Q00000020'EF 6 08 AS $3 OS2A 9 § MULD3 8(r35,(r2).scratch2 : €<2> = (A<2>*B<1> = A<1>*B<2>) / X 
00000010‘ EF 00000020 'EF $ 0533 «9 SUBD scratch2,scratch! 
08 AS O0000010'EF 55 6 R276 924 DIVO r5,scratchi,8(r4) 
” bec8 352 div_dc$ 
v_dc$: 
FD82 ss 31 058 $07 43 BRW div_by_zero 
548 $99 div_gc_gc: 
00000010°EF 63 63 45FD 0548 930 MULG (r3),(r3),scratch! 3 X = B<1>*B<1> + B<2>*B<2> 
00000020 EF 08 As. 08 AS 45FD 0554 «931 MULG 8(r35 .8(r$).scratche 
55 0 20'EF seis tbe BL $1F0 55F 338 re aqretcet scratcheor 
C 
oe 83 63 2efe 26 3 4 MULG (rs oC r2) scratchl 3; Real Part Division 
00000020'EF 08 A2 08 AS 45FD a7 935 MULGS 8(r35,8(r2),scratch2 : C<1> = (A<1>#B<1> + A<2>"B<2>) / X 
000082 og BOHR, SAFE SIRE Gas HRRGE sgranen ashen 
r5,scra ocr 
sina gh eH 08 A2 $3 45FD O059C 9 8 MULG (r$) Bird}. écratch] 3 Imaginary Part Division 
‘ "EF 6 8 A3 45FD 2A8 y MULG 8(r35,(r ),scratch2 3 C<2> = (A<2>*B<1> = A<1>*B<2>) / X 
00000010°EF 0000002 ‘Ef asrD 58 940 SUBG sgretch?.s ratchl 
08 AS 00000010'EF 5 4 a4 206 80) give r5,scratchi,8(r4) 
3tF 328 div_gc$: 
FDO03 =—s«331 +H Bee BR div_by_zero 
5CA 946 div_hc_he: 
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dbg$per form_operator “SEP=1 256: DEBUG. SRC JDBGPERMOP.MAR; 1 (3), 
00010' . 63 G3FD CA 47 MULH (r3),(r3),s egret = B<1>*B<1> + B<2>*B<2> 
oft 1 oot A3 65FD 0503 48 MULHS 16(r3),16(r3), seratgh2 
"EF 00 QOOIOTEF SiED QDE 949 ADDH scratchl.scratche, r 
000010' ¥ os Ft é5tD FS 951 MULH aty she 2 scratch! 3; Real Part Division 
000000 000020 EF 1 So ooo gras é ED 3F8 93¢ MUCH Votr$) 516 (re) seratch2 i Cel> = (AC1>*#BC1> + AC2>*#B<2>) / X 
boo0ds EF : gore et3 954 DIVH | scratch »(r4) 
O10 Er 10 A2._— 63 65FD 218 955 MULH (r$) 6(r scratch! 3 Imagina ary Part Division 
13900001 ‘EF ofSo00e5 a 2368 eee 929 sop Me 188) cr Re eseragche : C<2> = (A<2>*B<1> - Ac1>*B<2>) / Xx 
¥ scratch2,scratc 
10 A4 ‘Fboo00 010°EF gf egFb 6 8 828 DIVH r5,scratchi, 16(r4) 
ot HES Be atanca 
FC84 31 (0646 961i S”:*CO@RRW div_by_zero 
ss a 
pote 964 ; Multiplicative Operators - Multiply 
Bs Be in 
mu : 
64 62 63 85 0649 967 “—"  MULB3 (73), ¢r2), (4) 
01 1D 0640 968 BVS mul _b$ 
ot HEB uses 
mu 
FCSD =‘ 31 bead 44 * BRW int_over flow 
0653 398 mul _bu_bu: : 
7” ¢ 9A 0653 974 MOVZBL (r2),r5 ; Move to a larger quantity so overflow 
56 «66 9A 0656 975 MOVZBL c : ré6 3 condition can be detected 
55 56 C& 0659 976 MULL2 
OOOOOOFF 8F Ss. 8026 977 CMPL re PANE 
04 1A 0663 978 BGTRU mul_bu$ 
64 55 90 B6G3 979 MOVB r5,tr4) 
BEES unas! 
u$: 
FC44—CsO331 0669 ane 7” BRW int_overflow 
ane 
mul_w_w: 
64 62 63 AS 066C 985 “—" MULW3 = (r3),(r2),(r4) 
01 1D 534 3a8 BVS mul _ 
Bee Be wuts: I 
u : 
FC3A s331 Oer3 4.44 - BRW int_over flow 
ore 991 mul_wu_wu: 
55 6 ¢ 078 336 MOVZ2WL (r2),r5 
ge Rae me ae oh 
OOOOFFFF 8F 55 H ty +44 a v5 HP XEF FE 
66 55 8 6 $ 99 nov 65, tra) 
68C 99 mul_wu$: 
FC21 = 31 ? : ! BRW int_over flow 
68F 1 mul_t_l: 
64 62 63 CS O68F 1 88 Mee MULL3 = (rr. 3), Cr 2), (rr 4) 
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v04-000 dbg$per form_operator 278Eb= 1986 33:63: DEBUG. SRC JDBGPERMOP .MAR; 1 ’ (3) 
01 1D 0693 1004 BVS mul_l$ 
04 88 1 $e RET = 
$96 1 36 mul_L$: 
FC17.—ss«31 $38 : be BRW int_over flow 
699 1009 ; (mote: in C, the code generated for this operation is much simplified - 
0699 } 1 3 MULL$. The reason to do so in here is to detect overflow condition. 
699 Sig mul_lu_lu: 3 | 
55 00 62 63 7A 0699 101 EMUL fg} «fe8) 00.79 ; Perform extended-precision multiplication | 
4 DS O069E 1014 TSTL (r3) : Test muptiplier 
18 Q6A 131? BGEQ yes itive mute ; Multiplier >= 0 
56 66 CO O6A2 1 18 ADDL2 § (r2),r6 ; Fudge, so overflow can be detected 
06A5 1017 positive_mulr: 
¢ DS 06A5 1018 TSTL (r2) 3; Test multiplicand 
0 18 O6A? 1019 GEQ positive_muld ; Multiplicand >= 0 
56 63 CO 06A9 1020 ADDL2 (r3),r6 3; Fudge, so overflow can be detected 
QO6AC 1021 positive_muld: 
56 DS O6AC 10 § TSTL r6 : Test ResultClow] 
04 12 OQ6AE 10 BNEG mul _ lus ; ResultClow] not= zero, overflow 
64 55 D0 068 ise MOVL r5,tr4) ; Get ResultChigh] as the result 
04 0683 1025 
0684 1026 mul_lu$: 
FBF9 §=31 06B4 1027 BRW int_over flow 
0687 1028 
pea! 1029 mul_f_f: 
64 62 63 45 0687 1030 MULF3 = (r3),(r2),(r4) 
04 0688 1031 RET 
06BC 1936 mul_d_d: 
64 62 63 65 O6BC 103 MULD3 = (3), (r2) , (rr 4) 
04 06CO 1034 RET 
06C1 1035 mul_g_g: 
64 62 63 45FD 06C1 1036 MULG3 (r3),(r2),(r4) 
04 pecs 1037 RET 
06C7 1038 mul_h_h: 
64 62 63 65FD 06C7 1039 MULH3 = (3), (r2), (4) 
04 O6CC 1040 RET 
6CD 1041 
6CD Hk mul_fc_fc: 
55 62 63 45 06CD 104 MULF3 (r3),(r2),r5 ; Real Part Multiply: 
56 04 A2 04 A353 45 06D1 1044 MULF 4(73$,4(re) 6 : C<1> = AC1>*#B<1> = A<2>*B<2> 
64 55 56 43 OQ6D7 1045 SUBF r6,75,(r4) ; Real part result 
55 62 04 A3 45 O06DB 1 6 MULF 4(r3) 605) of : jagginary Pa Part Multip 
56 04 A2 $3 45 EO 104 MULF3  (r3),4(r2) 6 ; = A<1>*#B<2> + Redyiect> 
04 AG 6 5 41 06€5 1048 ADDF 75,76, 4(r4s : aE. aaa result 
04 O6EA 1049 RET 
6EB 1050 mul_de_dc: 
60000010 EF 62 63 65 ore 1051 MULD (r3) (06) scratch! 3 Reel Part Rultipt y: 
00000020°EF 08 A2 08 A3 63 6F3 1 3g MULDS B(r3$,B(rd)cscratch2 —; C<1> = ACI>*B<1> & AC2>#B<2> 
64 00000010°EF  Q0000020'EF 6 FO 105 SUBD cr teks scratchi,(r4) : Real part rosule | 
00000010°EF 62 08 AS 65 0709 1054 MULD (r rg) scratch ; Imaginary, Part Mu Ly: 
O20°EF OB A2 6 65 0712 1055 MULD (r3) ,8(r2) escratcne : = A<1>*B<2> ; ties *B<1> 
00000020‘ EF seetees % +4 61 oe 1056 ADOD scratchi,scratch2,8(r4) : Re. part result 
04 07 : 1057 RET 
7 1 28 mul_gc_gc: : 
OOO00010"EF 62 63 45FD 0729 105 MULG3 3 (r3),(r2),scratch! ; Real Part Multiply: 
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990000 
00000020' EF 
00000010' 
0000001 
0000002 
00000020 
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64 
64 
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55 
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_ P=1984 g 
dbg$per form_operator P=1984 
08 A A3 45FD 0732 1060 MULG 8(r3) pena ch2 
F 00 00080" 43FD 073D 1981 SUBG Beriete scratchi,(r4) 
EF 6 a3 45FD O74A 1 6¢ MULG (r3) (rg) ), scratch! 
EF A 63 45FD Pee 139 MULG (r3),8(r2).scratch 
F 00000 a 41FD O75E 1064 ADDG peteteek scratch2,8(r4 
08 A4 76A 
04 076C 1065 RET 
3700 1 98 mul he he: 
10°EF 62 6 SFD Zep 106 MULH3) 3 (r3),(r2),scratch! 
10 A210 A3 65FD 0776 1068 MULH3 16(r$),16(r2),scratch2 
F 00000020'EF 63FD 731 1069 SUBH scratche scratch! .(r4) 
EF $6 10 a3 5SFD 07 3 1070 MULH 16(r3) rs} ° scratchi 
EF 10 A2 63 65FD 0798 1071 MULH3 = (r 3), 16(r2).scratch2 
F QOOOO010'EF 61FD O7A2 1072 ADDH scratch .scratch2, 16(r 
10 A4 O7AE 
04 0780 1073 RET 
0781 1074 
0781 1075 
07B1 1076 : 
0781 1077 ; 
07B1 1078 ; Reoewtvus and 
0781 1079 : 
0781 1080 ; 
07B1 1081 
0781 HT : 
0781 1083 ; Multiplicative - MOD operation 
0781 1084 ; 
07B1 1085 mod_l_l: 
62 00 00 7A 0781 1086 EMUL #0,#0,(r2),(r4) 
64 64 63 7B 0786 1087 EDIV  (r$), ra), (rd), (4) 
64 DS 0O78B 1088 TSTL (r4) 
oe 13 0O7BD 1089 BEQL mod l|_ret$ 
$s @2 6 CD O7BF 1090 XORL3) = (r' 39, r2),r5 
55 D5 O7C3 1091 TSTL r5 
03 18 O7cs 1036 BGEQ oF L_ret$ 
64 63 cO O7C7 109 ADDL2 (r3),Tr4) 
O7CA 1094 mod_l_ret$: 
04 O7CA 1095 RET 
07CB 1096 
07CB 1097 mod_lu_lu: 
63 D5 O7CB 1098 TSTL (rs) 
0 ig 07CD 1099 BGEQ nog tu 
64 62 6 C3 O7CF 1100 SUBL3 J iS), {ré) 
0D i 103 1101 BGEQU mod ly. ets 
64 62 OD 705 (11 ; MOVL J,¢ 
08 11 O7D8 11 BRB hig “hy rete 
O7DA 1104 mod_lu$s 
64 6 DO O7DA 1105 OVL ire} ef e 
64 64 6 78 O7DD 11 $ EDIV (r Ere cre). (rd) 
Bre 1107 mod_lu_ret$: 
04 7E 1108 RET 
O7E3 1109 
O7E3 1110 
7E 1111 ; Remainder Operators 
7E 1146 3 
7E3 11135 rem_l_l: 
62 00 00 7A O7E3 1114 EMUL #0,#0,(r2),r5 


3 $3 18 poucves Mag ro V04-00 
DEBUG sRCS ‘DBGPERMOP .MAR; 1 
C<1> = A<1>#B<1> = A<2>*B<2> 


Real part result 
ingginery. Part Mul 
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) ; Imaginary part result 


Real Part Multiply: 
C<1> = A<1>*#B<1> = A<2>*B<2> 
Real part foouts 


gage nery Ps 4 AR 
B<2>- ; eect 
Imaginary aera result 


4); 


MARARBRBAARLARAASLALASAAAAARSAASAAEE SEALE SARA EASELS RSE RS RARE ALAR EAR R AREER SARE RRS SS 


5S €R8eOeiaeee & 


=MARBABARASZAARLRAASLALASAALALASEASARERARASARERRARARRRR ASAE ARRAS A REAR REAR SRSA RSA RASS SY 


ae ee ee 


| SagF RMOP 
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64 6¢ r 
646 646 64 6 B (r5),074),0r6),(r4) 


EDIV 
rem_lu_ret$: 
RET 


646 55 55 63 «78 E EDIV (r3),75,75,(r4) 
04 : RET 
E rem_lu_lu: 
go i Bs Pus 
rem_lu 
64 62 88 ig F SUBL3) ss (rr 33, (2), (4) 
0D if F BGEQU rem (u_ret$ 
64 6 D F MOVL r2), (rd) 
0 11 F RB rem_(u_ret$ 
F rem_lu$: 
0 f MOVL (r2),(r4) 
0 
0 
0 
0 
0 
0 
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COCOCOCOCOMO OOOO OOO NINN NNN 


0 
4 
‘ 
8 
9 
? 
§ ’MAABAARARAABRARLASAAARRARSLALASASLASSSASESARSS SESSA SESE RRS ESSE SESE RE RRS E SER ES ESSE 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 
7 
8 


8 11 
D 11 
. 3 
: 
11 
11 
11 
g 11 
11 
B 11 
D 11 
D 11 
0 11 
5 11 
= 
6 11 
6 11 
6 1132 ; 
6 1133 ; 
8 s 1 ; eS ee ee 
8 bg i PITITISITIFI TIFT ITTITIIIIIITITITITiTiTiTilitiiiilili iii ti tii tii TT Ti iit Tier iii 
0806 11 
0806 1139 ; Shift Operators 
o808 Mi shift left_t_l hift_left_lu_l 
$ _le ak: ; same as shift_left_lu_lu 
64 62 63 78 0806 11 ASAL (r3),¢r2), (74) 
04 OQ80A 11 
080B 1144 shift_left_L$: 
FACD 31 O80B 11 BRO shift_count_negative 
O80E 11 2 
O80E 1147 shift rt_l_i: 
63 D5 O80E 11 TSTL (r3) 
08 19 0810 1149 BLSS shift_rt_l$ 
53 63 «CE pels 1150 MNEGL (r3),F3 
64 62 53 78 0815 1151 ASHL r3,(r2),(r4) 
04 0819 115g Rel 
O81A 1153 shift_rt_(S: 
FABE 31 O81A 1154 BRw shift_count_negative 
081D 1155 
081D 1156 shift_rt_lu_lu: 
63 95 081D 1157 TSIC — (r3) 
21 19 OBIF 1158 BLSS shift_rt_lu$ 
53 63 cf 0821 1159 MNEGL (r3),Fr3 
53 oD oe 4 1160 TSTL r 
16 13° 0826 1161 BEQL ogt ,phitt_result 
) ae DO 0828 1166 MOVL r3,r5 
55 6 b85¢ 116 INCL r 
56 0460469600 yy, 3 14 1164 ASHL r5,#80000000,r6 
S. OF. 3 8 5 1165 ASHL r3,(r2),°5 
64 55 56 CB 0839 1166 BICL3 = r6,r5,(r4) 
04 083D 1167 RET 
Ha 1168 set_shift_result: 
64 62 00 —E 1169 MOVE (r2),(r4) 
04 0841 1170 RET 
0842 1171 shift_rt_lus: 
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FA96 = 3331 42 117 BRW shift_count_negative 
ae eee 
+ 10? FERRARA REAR AE AAR AEEAEAAEAAAAAERAAEAEAAAAAAAAAAAAAAAAAAARAAAEAEEAEEAAEEKA Tee eee 
pete 7? 3 P Ow ER 
pete 1179 WITTIIIITILITITITIITITITITIIIIITITITITITiTi Titi TTT riiiiiiiiiiiiiiiiiiiiiiT 
pate 1180 
0845 113) 
0845 11 ¢ ; Power of Operators 
0845 HF ; 
983 1184 power_w_w: 
7E 63 C 0845 Bt MOVZWL (r3),=-(SP) 
7E 62 C 0848 1186 MOVZ (r2) -=(SP) 
Q0000000'GF 02 FB 0848 1187 CALLS #2,G*OTS$POWI! 
64 50 B60 0852 1188 MOVW r0,(r4) 
04 0855 1189 RET 
0856 1190 
0856 1191 power_l_l: 
63 DD 0856 1138 PUSHL (r3) 
62 ODD 0858 119 PUSHL (r2) 
Q0000000'GF 02 FB O8S5A 1194 CALLS #2,G*OTS$POWJJ 
64 50 D0 0861 1195 MOV r0,(r4) 
04 0864 1196 RET 
0865 1197 
0865 1198 power_f_l: 
7E 63 00 0865 1199 MOVL (r3),-(SP) 
7E 62 50 0868 1200 MOVF (r2) ,=(SP) 
00000000'GF 02 FB 0868 1201 CALLS #2,G*OTS$POWRJ 
64 50 50 parE 1202 r0,(r4) 
04 0875 1203 
0876 1204 
0876 1205 power_d_l: 
7E 63 00 0876 1206 MOVL (r3),-(SP) 
7E 62 70 0879 1207 MOVD (r2) ,~(SP) 
00000000°GF 03 FB O87C 1208 CALLS #3,G*OTS$POWDJ 
64 50 70 0883 1209 MOV r0,(r4) 
04 0886 1210 ET 
0887 1211 
0887 1 1 power_g_l: 
7E 63 DO Q887 121 MOVL (r3),-(SP) 
7E 6¢ 5SOFD O88A 1214 (r2) ,-(SP) 
00000000 * GF FB ty: 1215 CALLS #3,G*OTS$POWGJ 
64 0 SOFD 95 1216 r0,(r4) 
04 aH 1217 
89A 1218 
089A 1219 power_h_l 
7E 63 _ 00 +445 1220 MOVL (r3),-(SP) 
7E Ge 70FD 0890 1221 MOVH (r2) .=(SP) 
00000000 * GF FB QO8Al 1 ¢ CALLS #5,G*°OTSS$POWHJ_R3 
64 0 70FD peas 1 MOVH r0,(r4) 
04 3 ! : RET 
OBA 1 § 3; Note that any time a Library routine is called, the imaginary portion ;kG001 
BBD : 5 3; of the real number must be pushed on the stack before the real part. ;kG001 
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yore 000 dbg$per form_operator ett Ti 33:63:18 tpeBuG.sRe DBGPERMOP .MAR; 1 ° (3) 
7E 2 50FD 0944 128 MOVG (r2),-(SP) 
00000000 ' GF o FB 0948 1 5 CALLS #4,G4OTSS$POWGG 
64 0 SOFD QO94F 1 3 MOVG r0,(r4) 
04 0953 1 RET 
954 1290 
954 1291 power_h_h: 
7E 63 70FD 0954 129 MOVH ae 
7E f 70FD 0958 129 MOVH (r ),~(SP) 
00000000'GF 0 FB 328 1294 CALLS #8,G*OTSSPOWHH_R3 
64 50 70FD 0963 1295 MOVH r0,(r4) 
04 0967 1 38 RET 
8308 129 
ape 1298 power_fc_fc: 
7E 04 | 28 968 1299 Move 4(r3),-(SP) 
7E 6 0 096C 1300 MOVF (r3),-(SP) 
7E 04 A2 30 096F 1301 MOVE  4(r25,-(SP) 
12 13 0973 1 f BEQL 1$ 3; Check if the first operand=0 ;k6001 
7E 62 50 0975 130 MOVF = (r2) -= (SP) 
00000000'GF 04 FB 0978 1308 2$: CALLS #4,G*OTSS$POWCC :KG001 
64 50 50 O97F 1305 MOVF r0,(r4) 
04 AG) «651 =—550 «(0982 «21306 MOVF r1,4(r4) 
o- 44 1307 RET 
0987 1308 
7E 62 50 0987 1309 1$: MOVE (r2),-(SP) : Check the second 3:KG001 
EC 12 O98A 1310 BNEQ 2$ 3; Are both = 0? 3kG001 
B AE DE O098C 1311 MOVAF 8(SP),SP ; Yes, get rid of args. :KG001 
OO0O28ED8 8F dD 0990 13i¢ PUSHL te yoteres ; Signal Undefined Exp. 3KGO01 
00000000'GF 01 FB 0996 131 CALLS #1,G*CIBSSIGNAL 3 Signal it 3kG001 
04 099D 1314 RET 3 And exit 3KGO01 
O99E 1315 
O99E 1316 power_de_ dc: , : 
7E O08 AS 70 Q99E 1317 Movo 8(r3),-(SP) ; Push imaginary part first :KG001 
7E 63 70 Q9A2 1318 MOVD (r3),-(SP) ; Push the real part Last 3kKG001 
7E 08 A2 70 O9A5 1319 MOVD  8(r25,-(SP) ;kG001 
12 13 OQ9A9 1320 BEQL 1$ : Check if first op=0 3KGO01 
7E 62 70 O09 1321 MOVD (r2) = (SP) 3kG001 
00000000'GF 08 FB O9A 1356 2s CALLS #8,G*OTSSPOWCDCD_R3 3KG001 
4 50 70 0985 13 MOVD r0,(r4) 
08 AS «652 670 «(0988 135 MOVD r2,8(r4) 
04 O09BC 1325 RET 
O9BD 1326 
7E 62 70 0Q98D 1357 1$: MOVD (r2),-(SP) ; Same as F, almost 3kG001 
EC 12 09CO0 1328 BNEQ $ 7KG001 
43 08 AE 7E Bare 3 9 MOVAD (SP) ,S? 3:kG001 
OO0028ED8 BF 9C6 1350 PUSHL adbas yndexen skeet 
00000000'GF 01 B O9CC 1331 CALLS #1,G6*CIBSSIGNAL :kG001 
04 09D 1336 RET 3KG001 
0904 133 
904 1334 power_gc aS 
7E 08 A3 SOFD 0904 1335 AOvG 8(r3),-(SP) ; See comments for FC&DC 3KG001 
7E 63 5OFD 0909 1 $$ MOVG (r3),-(SP) :kG001 
7E «08 Ag 50D 90D 1 MOVG  8(r25,-(SP) :KG001 
1 1 9E 1 3 BEQL 1$ 3KG001 
7E 50FD OQ9E4 1 MOVG (r2) -~(SP) 7KG001 
00000000 ' GF FB Q9E8 1340 2$ CALLS #8,G*OTSS$POWCGCG_R3 :KG001 
4 5SOFD O9EF 1341 MOVG r0,(r4) 
08 AS) 52 SOFD O9F3 1342 MOVG r2,8(r4) 


15-SEP-1984 23:45:1 AX/VMS Macro v04-00 Page Dt 
dbg$per form_operator ra ets 1 33:63:18 toeauG sre DBGPERMOP .MAR; 1 ° 2) vi 
meee ae ee on 
7E 62 SOF OF 1345 1$: MOVG (r2),-(SP) 3KG001 
E 3 oFD 1 rk BNEQ Hy 3KG001 
B6286D8 BF OB OAOS 134 PUSHL — #dbg$ und ‘KG001 
undex Py 
00000000 ' GF 8 FR Ag 1 é3 CALLS #1. eC 1B$S1 NAL 37KG001 
04 QA1I0O 135 RET 3KG001 
AI) 1382 
at 1 38 FARRAR AAA AAA AAA ATER RARER AAAAAAAAAEAEAARAAREAAKAAEARAAERAEREEREKAA ATES 
All 1354; 
pati ! 22 3 C H A R AND S ¢ 2 . 3... 2 ee 
ye 1 3? ITIIIITITIII IIIT TI TTIT IIIT ITLIT LLL ii Ti iiiiiii iii 
Al 1 
OA11 1359 
All 1360 3; Concatenation 
All 1361; 
0A11 1306 concat_t_t: 
QOOO00038"EF DD OA11 136 PUSHL arg2_desc 
QOO0003S0'EF OD OAI7 1364 PUSHL argi_desc 
00000040'EF OD BAIS 1365 PUSHL result_desc 
00000000'GF 03 FB OA 1366 CALLS #3,G*STRSCONCAT 
01 50 Di OA2A 1367 CMPL r0,4ss$_normal 
01 12 OA2D 1368 BNEQ concat_t$ 
04 yh F 1369 RET 
A30 1370 concat_t$: 
51 QOOO0030'FF  3C BAe 1371 MOVZ2WL @argi_desc,r1 
52 QO0000038°FF 3C OA 1376 MOVZWL @arg2_desc,r2 
53 00000040'FF 3C OA3E 137 MOVZWL @result_desc,r3 
26 3} CO OA45 1374 ADDL2 ri.r 
5 ¢ D1 OA48 1375 CMPL r2.r 
0 15 OA4B 13/8 BLEQ concat_ok$ 
F899 31 OASD 1377 BRW string_truncate 
0ASO 1378 concat_ok$: 
04 O0A5O 1379 RET 
0A51 1380 
0A51 1381 eql_vt_vt: 
63 62 #4261 OAS! 1386 CMPW (r2),(r3) 
0D 13 pA? 138 BEQL ogi tt 
00028668 8F DD QOAS6 1384 PUSHL # bas sirnepad 
00000000'GF 01 FB @A5SC 1385 CALLS #1,G*CIBSSIGNAL 
AOS (1 § eql_t_t: 
64 01 D0 OA63 1 MOVL #1,(r4) 
O0000038'EF DD OA66 1388 PUSHL arg2_desc 
QOOO00030"EF ODD 4, 1389 PUSHL argi_desc 
00000000 ' GF 3 F A 1390 CALLS 4g .G"STRECOMPARE 
DS OA79 1391 TSTL r 
ee A7B 1 35 BEQL eql_t$ 
64 D4 A7D 139 CLRL (r4) 
A7F 1394 eql_t: 
F883 31 OA7F 1395 BRW branch_ret 
A 1 3 
A : 3 t_vt 
eq_vt_vt: 
63 62 BI OABS 1309 CMPW(r2), (3) 


G 14 


DBGPERMOP 15-SEP-1984 745:1 AX/VMS Macro Vv04-00 Page 27 DI 
Peet 500 dbg$per form_operator ramet Ti 33:33:15 toeauG. SR DBGPERMOP.MAR; 1 . (3) vi 
D 13 OA ; 1400 BEQL gea-t_t 
409 a F DD OA 1401 PUSHL dbg$_str read 
00000000 ' GF 1 FB “ 1? ¢ > CALLS #1,G6*CIBSSIGNAL 
e : 
fi 01 DO OA94 1404 sia MOVL #1,(r4) 
gessancee BB aA Hii FARR ari en 
00000000' GF 6 Fe AA 1209 CALLS #2 ,G*STRSCOMPARE 
D AAA 1288 TSTL r 
0 18 OAAC 140 BGEQ 9eq ts 
64 04 an 1219 +8 CLRL r4y 
6 : 
F852 so ae 1716 me BRw branch_ret 
OABS 1414 gtr_vt_vt: 
6 65 693 base lel cn arts 
r 
00028668 5 DD OABs 1419 PUSHL Habgs-strngpad 
00000000 ' GF 1 FB we 1913 meee CALLS #1,G*CIBSSIGNAL 
r : 
64 01 DO OACS 1420 ete MOVL #1,(r4) 
QO000030'EF DD Gace 1252 PUSH aratcdese 
ar es 
00000000 ' GF 02 fe AD4 14 3 CALLS #2°G"STRECOMPARE 
50 D5 OADB 1424 r0 
02 14 OADD 1425 BGTR tr_t$ 
64 D4 $4 1? rr CLRL r4y 
r_t$: 
F821 31 OAE1 1428 ”e BRW branch_ret 
Dare 4480 
AES 1431 leq_vt_vt: 
6 85 RS One? 1233 seoy slew tt 
00028668 8F DD OAE9 1434 PUSHL #dbgSstengpad 
00000000'GF 01 FB OAc 132 cape CALLS #1,G*CIBSSIGNAL 
66 01 0 Care 1489 et = nov, wt, cra) 
00000038"EF dD OAF9 1438 PUSHL arg2_desc 
00000000'GF. Oe FB B05 1440 CALLS a .GRSTRECOMPARE 
50 D5 pane 1441 TSTL r0 
oe i 0 1226 BLEQ seg t$ 
64 D4 Bt 1327 i ad CLRL (r4) 
F7FO O31 12 1445 _— BRW branch_ret 
ie tt 
1 1oe8 lss_vt_vt: 
se HR iy ca 
00028668 go OD 1A 1451 PUSHL #dbg$"strngpad 
00000000'GF 01 FB 9 1926 "alg! » cats #1,G*CIBSSIGNAL 
64 01 00 7 1454 #7 7 MOVL  #1,(r4) 
O000038'EF dD A 1455 PUSHL arg2_desc 
OOO0O030"EF ODD 0 1456 PUSHL argi_desc 


DBGPERMOP :™ 15-SEP-1984 45:1 AX/VMS M 04-00 2 ) 
-SEP- 245: V acro V04- Page 
v0e-000 dbg$per form_operator 4-SEP-1984 $3583:) DEBUG. SRC JDBGPERMOP .MAR; 1 . 3 Vv 
00000000 ' GF F B36 1457 CALLS #2,G*STRSCOMPARE 
tHe | OR a 
$$ 
64 D4 0B41 1460 CLRL (r43 
F7BF 031 BG 1282 sts gh BRW branch 
ranch_ret 
B46 1288 
46 1464 
B46 1465 neq _vt_vt: 
63 62 81 0B4 1996 CMPW (r2),(r3) 
OD 13 0B49 146 BEQL neq_t_t 
00028668 8F ODD 4 1398 PUSHL #dbg$_ strngpad 
00000000 ' GF 1 FB 085 138 CALLS #1,G*CIBSSIGNAL 
B58 1470 neq_t_t: 
64 D4 0858 1471 CLRL (r4) 
OOOO0038'EF DD OBSA 1a%6 PUSHL arg2_desc 
OOOOSO'EF DD OB60 147 PUSHL argi_desc 
00000000 ' GF 9 43 0B66 1474 CALLS #¢.G"STRECOMPARE 
DS OB6D 1475 TSTL r 
0 13° OB6F 1476 BEQL neq_t$ 
64 01 DO OB71 1477 MOVL #1,Tr4) 
0B74 1478 neq_t$: 
F78E 31 0874 1479 BRW branch_ret 
0877 1480 
0B77 1481 
0877 ef FRR RAE AERA AE EAE REA RARAAEERAAAEAAAEAAAAARAAAAAEARAAKA AREA Ae 
0B77 1483 ; 
0B77 1484 ; se SB and N E Q 
0B77 1485 ; 
0877 1486 PRA AAA AREER AEA AAAAAEARKAE RARER Ae 
0B77 1487 
0B77 1488 
0B77 1489 ; Equality Operators 
ad 1490 ; 
77 «+1491 eql_b_b 
64 4 0877 1236 CLRL (r4) 
63 «6 91 0B79 149 CMPB (r2),(r3) 
0 g OB7C 1494 BNEQ egl b$ 
64 01 DOU OB7E 1495 MOVL #1,Tr4) 
0B81 1496 eql_b$: 
F781 = 31 rt 1497 BRW branch_ret 
4 1498 
4 1499 eql_w_w: 
64 D4 4 1300 CLRL (r4) 
63 6 61 6 1501 CMP (r2),(r3) 
0 12 4 1286 BNEQ eal wh 
64 01 00 150 MOVL #1,Trd) 
se 1504 eql_wS: 
F774 = 331 E— 1505 BRW branch_ret 
91 15 $ 
91 138 eql_t_l: 
64 D4 91 1508 CLRL (r4) 
63 6 D1 93 1509 CMPL (r2),(r3) 
03 12 089% 1510 BNEG eal ( 
64 O01 OD 98 1511 MOVL #1,Tr4) 
B9B 1316 eql_\$: 
F767 = 331 96 151 BRW branch_ret 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro V04-00 Pa 29 
yOe-000 dbg$per form_operator raat Pi 33:63:15 DEBUG. SRC JDBGPERMOP.MAR; 1 mis (3) 


9E 1514 
BIE 1515 eql_f_f: 
64 b% 9E 1 1 CLRL (r4) 
63 8 1 AQ 151 CMPF (r2),(r3) 
0 if A 1318 BNEQ = eg ‘$ 
64 O01 OD BAS 1519 MOVL #1,Tr4) 
wt 1520 eql_f$: 
F75A 31 - 1 1 BRW branch_ret 
AB 15 : eql_d_d: 
64 4 AB 1524 CLRL (r4) 
63 §¢ 1 AD 1 5 CMPD (r2),(r3) 
is BBO 1 § BNEQ oe d$ 
64 O01 OD a3 15 MOVL #1,Tr4) 
1528 eql_d$: 
F74D «6931 0BBS 1529 BRW branch_ret 
OBB 1531 eql 
€ : 
64 D4 OBBB 1332 — CLRL (r4) 
63 6¢ SiFD OBBA 153 CMPG (r2),(r3) 
0 12 OBBE 1338 BNEQ egl g$ 
64 01 00 OBCO 1535 MOVL #1,Tr4) 
0BC 1336 eql_g$: 
F73F 46.331 - OBCS) «153 BRW branch_ret 
OBC6 1538 
OBC6 1539 eql_h_h: 
64 D4 pate 1540 CLRL (r4) 
63 62 71FD OBC8 1541 CMPH (r2),(r3) 
0 12 OBCC 1346 BNEQ eql_h$ 
64 01 DO OBCE 154 MOVL #1,Tr4) 
0BD1 1544 eql_h$: 
F731 31 OBD1 1545 BRW branch_ret 
OBD4 1546 
OBD4 1547 eql_fc_fc: 
64 D4 OBD4 1548 CLRL (r4) 
63 62 51 OBD6 1549 CMPF (r2),(r3) 
OA 12 OBD9 1550 BNEQ eg! fc$ 
04 AS O4A 51 OBDB 1551 CMPF 4(r2) ,4(r3) 
0 OBEO 1336 BNEQ egl fc$ 
64 O01 OD BBE S 155 OVL #1,Tr4) 
OBES 1554 eqi_fc$ 
F71D «631 OBES 1555 BRW branch_ret 
OBES 1328 
44 1557 eql_dc_dc: 
64 of E8 1558 CLRL (r4) 
63 62 1 EA 1559 CMPD (r2),(r3) 
OA 12 444 1560 BNEQ gl dc$ 
08 AS 08 ag 71 EF 1561 CMPD 8(r2) ,8(r3) 
is mare 1266 BNEQ «9 C 
64 01 OD F6 156 MOVL #1,Tr4) 
F9 1564 eql_dc$: 
F709 =—31 F9 1565 BRW branch_ret 
FC 1396 
FC 1567 eql_gc_gc: 
64 D4 FC 1568 CLRL (r4) 
63 62 318 6S 139° CMPG (r2),(r3) 
0B 1 C02 1570 BNEQ eql 


icing 


dbg$per form 


aon 


IN. AIRORORONONONONOPONonoNny | | = = = = DOO0O 


MINIT SO S COCOCOOUIVINVO FOOLS NNT NO 


08 AS 08 ag se 
64 ce 

FOFS = 31 

64 OD 

63 62 71F 

0B 1 

10 A310 Ag sh 
64 1 OD 

F6DD = 31 

64 OD 

63 6 9 

0 1 

64 01 OD 

F600 «3 

64 OD 

63 6 B 

0 1 

64 O01 OD 

F6C3) 5 


64 OD 
63 6¢ D 
0 1 
01 OD 


64 
F6B6 = 3 
64 OD 
63 6 5 
0 1 
64 O01 OD 
FOA9 = s 331 
64 
63 2? 
66 Oi 
F69C = 3531 


DPQ XQLD Pr B BB PEEL FE EWI 
DOAW MOCO fA NOOONHLNVNNMFBMBO PNM 


a tt Hh I MOO OODOOOOOO OOOO O0 OOOO 0000000 090009090909 INI INNNN 


ee ee ee ee a ee ee ee ee a a dd a 
NAME WR OS OD NOAUE WIN OS OD NAME WN © OD NAME WIN OOO NOAM WWN OC OONOUS Wn 


DDDED DD DED DDE De DE DED. DED DS DS DS DED DDD DDS DED TTT 


operator 


eql_he_he: 
CLRL 


L_hc$ % 

eql_hc$: 
B 

neq_b_b: 


neq_b$: 


neq_w_w: 


neq_ws: 
B 


neq_l_l: 


neq_\$: 


neq_f_f: 


neq_f$: 


neq_d_d: 


neq_d$: 


"A=SEb=198¢ 93:58: 
8(r2) ,8(r3) 
#1, TPs) 
branch_ret 


branch_ret 


(r4) 
ie as 
ne 

WM otre) 


branch_ret 
(r4) 

te vy 
neq_w 

#1 Tra) 
branch_ret 
(r4) 

re) tr) 
ne 

#1 otra) 
branch_ret 
(r4) 

sre) .fr3) 
ne 

Hora) 
branch_ret 


(r4) 

re) irs) 
ne 

WH tra) 


branch_ret 


AX/VMS Macro v04-00 
DEBUG. SRC JDBGPERMOP.MAR; 1 


DBGPERMOP 15-SEP-1984 245:1 AX/VMS Macro V04-00 P 1 
yore 500 dbg$per form_operator ramets 7 : 756:4 DEBUG. SRC JDBGPERMOP .MAR; 1 — ib) 
C69 1 ne : 
66 34 18 § 4.8.8 CLRL (r4) 
63 ¢ s1F8 é ? 1 9 Bear hE 
ne 
68 en 163¢ ,, nove Wi ate4) 
ne : 
FOBE 31 OC74 1634 baad BRW branch_ret 
oy 1888 neg hh 
ne : 
64 D4 OFT? 1689 eee (eG) 
oan a 
n 
“w 8 t CZF 1640 MOU Wi otr4) 
ne : 
F680 31 Ocbe 1642 Sr pe sébrench_ret 
OC85 1644 neq_fc_fe: 
63 6 51 0C85 1645 CMPF (r2),(r3) 
a ae 
OC8C 1968 ent, tnog nor yt 
mens RY Re tet gt 
neq_fc 
64 01 00 344 121 al MOVL #1 Tra) 
neq_fc$: 
F66C Os 31 343 1888 . BRW branch_ret 
0C99 1655 neq_dc_dc: 
63 62 71 OC99 1656 CMPD (r2),(r3) 
ee a ns aa 
r 
OCAO 1659 test, tnaginaryés 
08 AS 08 Ag 71 OQOCAO 1660 MPD 8(r2) ,8(r3) 
0 13° OCAS 1661 BEQL neq_dc$ 
64 «01 dO Ar 1906 dc MOVL #1,Tr4) 
neq_dc$: 
F658 31 OCAA 1664 . BRW branch_ret 
BEAD 1666 neq_gc 
C: 
63 62 SIFD DCAD 1667 et 8=8Eog — cr2) (FD 
bc Dk (OCBS 1669 Cia, Usaf-‘neetnerrs 
r 
OcBs 1670 test. tnogineryet 
08 ASO ry 5168 cB 19) tare Sire) -Br3) 
neq_gc 
64 1 00 88 1678 . MOVL Hotes) 
neq_gc$: 
F642 =—s31 $f 1903 u9 BRW branch_ret 
cc 1877 neq_hc_hc: 
63 Ge 71FD OCC 1678 CMPH (r2),(r3) 
2 12 OCC? 167 BNEQ test_imaginaryh 
64 D4 OCC9 1680 CLRL (r4) 
CCB 1681 test, tneg inary: 
10 A310 A ae | ot 19 § Harty NOCeR) 163) 
neq_hc 
64 1 pO OCD3 1684 MOVL #1 tre) 


L 14 


DBGPERMOP 15=SEP=1984 23:45:18 VAX/VMS Macro V04-00 Page 32 
yOee 500 dbg$per form_operator raat Ti 33:63: DEBUG. SRC JDBGPERMOP .MAR; 1 . 48) 
CD6 1685 neq_hc$: 
F62c Os 331 tDg 1 .. BRW branch_ret 
CD9 «(16 
CD9 1688 
424 195) SAREE REET RET EAA A RARER AAA AAEAEA REET AERATEA AAT 
144 199) $ G E Q and G T R and : 8 4 and - © 
ac03 1698 FRR EEE RAEAAAE REAR AERA EEATEAE RAE Eee 
OED 1696 ; Relational Operat 
; Relational Operators 
ats 1899 : 
Cd9 1998 geq_b_b: 
64 01 dO Cb9 199 MOVL #1,(r4) 
63 62 91 OCDC 1 00 CMPB (r'2),, (3) 
02 18 OCDF 1701 BGEQ 9eq b$ 
64 D4 OCE1 Ay CLRL ray 
it 178 geq_b$: 
FOIF 31 OCES 1704 BRW branch_ret 
OCE6 1705 
OCE6 1706 geq_w_w: 
64 01 DO OCE6 1707 MOVL #1,(r4) 
63 62 B81 OCE9 1708 CMPW (2), (3) 
2 18 OCEC 1709 BGEQ 9eq wh 
64 D4 OCEE 1710 CLRL r4y 
OCFO 1711 geq_w$: 
F612 «351 acre 1712 BRW branch_ret 
OCF 1713 
OCF3 1714 geq_l_l: 
64 01 DO OCF3 1715 MOVL #1,(r4) 
63 62 D1 OCF6 1716 CMPL =e (2), (rr 3) 
02 18 OCF9 1717 BGEQ geq ($ 
64 D4 OCFB 1718 CLRL r4y 
OCFD 1719 geq_l$: 
F605 31 OCFD 1720 BRW branch_ret 
0D00 7s! 
. 0000 17 § geq_lu_lu: 
64 01 DO O0D00 17 MOVL #1,(r4) 
63 62 01 OD03 1724 CMPL = (2), (3) 
02 1E€ 0006 1725 BGEQU geq (us 
64 D4 OD08 1756 CLRL r4y 
ODOA 1727 geq_lus 
FSF8 = 531 44 1728 branch_ret 
DOD 1729 
44 1730 geq_f_f: 
64 01 D0 DOD 1731 MOVL #1,(r4) 
63 62 51 D19 17 é CMPF Os (2), (3) 
02 18 0D13 17 BGEQ geq $ 
64 D4 OD15 1734 CLRL r4y 
D17 1735 geq_f$: 
FSEB 31 ODI17 17 $ BRW branch_ret 
DIA 17 
DIA 17 8 geq_d_d: 
64 01 09 DIA 17 MOVL #1,(r4) 
63 62 1 OD1D 1740 CMPD 3s (2) , (rr 3) 
18 OD20 1741 BGEQ geq_d$ 


M14 


15-SEP-1984 23:45:1 AX/VMS M v04-00 P 33 
2rSEb= 1382 $3: atts _ | 


thal 
v04-000 A dbg$per form_operator 56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 (3) 


64. D4 p 2 1748 = CLRL 3s (4) | 
\ e 3 
FSDE 31 4 3 ite “hi BRW branch ret | 
“\ 0027 1746 ge : | 
eee ese, a | 
ae Rat as 
e 
e498 1750 g, cu tras? 
e g 
F500 31 O88 1758 wen Ome brench.ret 
bb 1754 geq_h_h: | 
64 01 dO 035 1755 MOVL #1, (r4) 
63 62 71FD 0D38 1736 CMPH Ss (2), (3) 
02 «18 pose 17 BGEQ gea h$ 
64 D4 D3 1738 # CLRL ray | 
e 3 | 
F5C2.—Ss 331 p68 1760 vithen BRW branch_ret 
gee fe 
a043 1583 gtr_b_b: 
64 01 DO 0043 1764 MOVL = #1, (r4) | 
63 62 91 0D46 1765 CMPB (rd), (r3) | 
02 14 OD49 1766 BGTR gtr b$ 
Me I, ees eae 
r_b$: 
F5B5 31 O0D4D 1769 -* BRW branch_ret 
8? ote ww | 
64 01 D0 9050 1772 EN et. (ra) | 
63 62 81 0053 177 CMPW (rd), (3) | 
02 14 0056 1774 BGTR gtr w$ 
64 D4 0058 1275 swig CLRL r43 | 
r_w$: 
FSA8 = 31 ODSA 1777 “e BRW branch_ret | 
$b TTT oer. 
r 3 
64 01 DO OD8D 17807 7 ~ MovL #1, (ra) | 
63 62 01 9060 1781 CMPL se (rr 2), (3) | 
02 14 006 1788 BGTR gtr ($ 
Boe Be Ue anaes 
r 
F598 31 O67 1785 ere BRYcbranch_ret 
Boon 17 ; gtr_lu_lu: 
64 01 DO OD6A 17 8 MOVL #1, (4) 
63 62 01 OD$p 178 CMPL ss (2) , (rr 3) 
02 1A OD g 1790 BGTRU gtr (us 
64 D4 D7 1791 a CLRL ray 
ud: 
FS8E 48631 «—(OD74 1598 “. BRW branch_ret 
Oty 1998 otr_t_f: 
64 01 po 077 1796 ert MOVE wt. (ra) 
63 62 1 OD7A 179 CMPF (rd), (3) 
14 OD7D 1798 BGTR gtr_f$ 


SS rs nen neers 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro v04-00 Pp 4 | 
yore 500 dbg$per form_operator raat Pi 33:62) DEBUG. SRC JDBGPERMOP .MAR; 1 _ i) 
64 D4 OD7F 1799 CLRL ss (r'4) 
D811 00 gtr_f$: | 
F581 = 31 4 } ! 4 BRW branch_ret 
D841 86 gtr_d_d: 
64 01 bo D8, 1804 MOVL #1, (4) 
oF 8S fk Bebe i8be BeTR (12) ¢r3) 
r | 
6& De Ope 180? CLRL rad | 
OD8E 1808 gtr_d$: | 
F574 31 OD8E 1809 BRW branch_ret 
9091 1810 
D91 1811 gtr_gig: 
64 01 DO 0D91 Isi¢ MOVL #1,(74) 
63 62 S1FD 0D94 181 CMPG ~=s (2), (3) 
02 14 OD98 1814 BGTR gtr g$ 
64 D4 OD9A 1815 CLRL ray 
OD9C 1816 gtr_g$: 
F566 31 OD9C 1817 BRW branch_ret 
OD9F 1818 
OD9F 1819 gtr_h_h: 
64 01 DO OD9F 1820 MOVL = #1, (4) 
63 62 71FD ODA2 1821 CMPH ss (2), (3) 
02 14 ODA6 1828 BGTR gtr h$ 
64 D4 ODA8 182 CLRL r43 
ODAA 1824 gtr_h$: 
F558 31 OQODAA 1825 BRW branch_ret 
ODAD 1826 
ODAD 1827 | 
ODAD 1828 leq_b_b: | 
64 01 DO ODAD 1829 MOVL = #1, (4) | 
63 62 91 ODBO 1830 CMPB Ss (r'2),, (3) 
02 15 ODB3 1831 BLEQ Leq_b$ 
64 0&4 ODB5 183¢ CLRL (ray 
ODB? 18335 Leq_b$: 
F548 31 ODB7? 1834 BRW branch_ret 
ODBA 1835 
ODBA 1836 leq ww: 
64 01 DO ODBA 1837 MOVL = #1, (rr 4) 
63 62 81 ODBD 1838 CMPW (2), (3) 
02 15 ODCO 1839 BLEQ leq ws | 
64 D& ODC2 1840 CLRL (ra 
ODC4 130) Leq_w$: 
F53E 31 ODC4S 1 X: BRW branch_ret 
ODC7 184 
ODC7 1844 Leq_t_l: 
64 OF DO ODC7 1845 MOVL = #1, (4) 
63 ee D1 ODCA 1846 CMPL ses (8), (3) 
02 15 ODCD 184 BLEG Leg ($ 
64 D4 ODCF 1848 CLRL (rd 
DD1 1849 leq_t$: 
F531 31 ODD1 1850 BRW branch_ret 
ODD4 1851 
DDS 1 3 leq_lu_lu: 
64 01 DO ODD4 185 MOVL #1, (4) 
£3 62 D1 Oo07 1854 CMPL (rd), (3) 
02 16 ODDA 1855 BLEGU leq_lus 
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yore 600 dbg$per form_operator 2736-1382 33:63:18 toeauG sre DBGPERMOP .MAR; 1 . (3) 


64 D4 poe 56 a. CLRL Cr’) 
us: 
F524 = 31 44) ! 28 ~ BRW branch_ret 
DE1 1860 leq_f_f: 
64 01 DE1 1861 MOVL #1, (r4) 
63 6 DES 1 6¢ CMPF (rd), (r3) 
02 15 ODE? 186 BLEQ Leg ‘$ 
64 4 DE 64 a CLRL Cr QT 
e 
F517 31 «ODEB 1 06 ~ BRw branch_ret 
SpE : 3 leq_.d_d: 
64 01 DO ODEE 1 43 "MOVE #1, (rd) 
63 62 71 ODF1 1870 CMPD 3s (rr 2), (rr 3) 
02 15 ODF4 1871 BLEQ = Leq_d$ 
64 4 ODF 1872 op CLRL (rr 4 
e 
FSOA 31 ODF8 1874 ~ BRW _branch_ret 
Sore 1832 leq g: 
64 01 DO ODFB 1899 “9-H ov, wt cr) 
63 62 SIFD oore 1878 CMPG =s (2) , (3) 
02 15 OE02 1879 BLEQ leq_g$ 
64 «4 OE04 1880 “igh CLRL se Cr 4 
e $ 
F4FC §=—31—- E06 136 ~ BRW branch_ret 
Of09 1884 Leg.h_h: 
64 01 DO O£€09 1885 ~~ MOVL  #1,(r4) 
63 62 71FD OE0C 1886 CMPH = (rr) , (rr 3) 
02. «15 E19 188 BLEQ leg h$ 
sh On Un wie so 
F4EE 31 O14 1890 ~ BRW _ branch-ret 
0617 1891 
ae 1338 lss_b_b: 
64 01 DO OF17 1894 ~~ MOVL  #1,(r4) 
63 62 91 OEF1A 1895 CMPB ss (r'2) , (r3) 
02 19 OED 1896 BLSS ss 
64 4 elf 1897 aap CLRL Ss (rr 
Ss $ 
F4E1 = 331 Oe3t 1398 c BRW branch_ret 
0E24 1901 Lss_wiw: 
64 01 00 OE 4 1908 MOVL #1, (r4) 
63 62 81 0€27 190 CMPW (rr), (3) 
02 19 OE A 1904 BLSS = Lss_w$ 
64 «4 OE ¢ 1905 age CLRL Cr 4 
SS _ ws: 
F404 «31 «=OEZE 1909 br BRw branch_ret 
ES 1909 Lss_t_t: 
64 01 DO 0€31 1910 ~~ Mov. #1,(r4) 
63 62 D1 0E34 1911 CMPL (rd), (3) 
02 19 0637 1912 BLSS —s_ Lss_($ 


GPERMOP 15=SEP=1984 23:45:18 VAX/VMS Macro V04-00 Page 3 DE 
vivae tit dbg$per form_operator raat Th 33:43:15 DEBUG. SRC IDBGPERMOP.MAR; 1 . 03) ve 
64 D4 O0E39 1913 CLRL (r4) 
E38 1914 Lss_L$: 
F4C7.—ss 331 ; ; 1312 BRW branch_ret 
ESE 1919 Lss_lu_lu 
64 01 DO OESE 1918 VL #10974) 
63 62 D1 O0E41 1919 CMPL = (8) , (rr 3) 
1F 044 1920 BLSSU Lss_[u$ 
64 D4 OF4G 1921 LRL (r4J 
0E48 19 ¢ Lss_lu$: 
F4BA 31 ree 1 Z BRW branch_ret 
OE 1925 lss_f_f: 
64 01 DO OESB 19 § MOVL #1,(r4) 
63 62 51 OESE 19 CMPF (8), (3) 
02 19 OE51 1928 BLSS Lss_f$ 
64 D4 et 1929 CLRL (r43 
0E55 19350 Lss_f$: 
F4AD 31 Beas 133) BRW branch_ret 
0E58 1938 lss_d_d: 
64 01 DO OE58 1934 MOVL #1,(r4) 
63 62 71 OE5B 1935 CMPD = (2), (3) 
0 19 OE5E 1936 BLSS lss.d 
64 D4 OQE60 1937 CLRL (r4) 
OE62 1938 Lss_d$: 
F4A0 = 31 3 1373 BRW branch_ret 
0E65 1941 Lss_g_g: 
64 01 DO OE65 1336 MOVL #1,(r4) 
63 62 51FD 0668 194 CMPG = (2), (rr 3) 
02 19 QOE6C 1944 BLSS lss_g$ 
64 OE6E 1945 CLRL (r4J 
0E70 1946 Lss_g$: 
F492 —s31 gene Hot BRW branch_ret 
pez 1949 Lss_h_h: 
64 01 DO OE73 1950 MOVL #1,(r4) 
63 62 71FD OE76 1951 CMPH = (2), (3) 
02 19 QE7A 1926 BLSS Lss_h$ 
64 OE7C 195 CLRL (r4J 
OE7E 1954 Lss_h$: 
F484 = 51 bere W322 BRW branch_ret 
nat 1989 
0E81 1958 
0E81 1959 seeeeeereeeeeeretrereeeteeeeeeee eee ee eee Kee eee eKAA AAT eAAAAe Ke AA eeAeeeAe HATS 
—81 1960 ; 
iat 1961 ; S ..2°9 3°38 AN D and —E @ V_~ and Nn OT 
Be : 1306 ; O R and Xx O R-— and 1 * P 
} t+ 1964 [eeeeeeeeeeeeeeeeeeeeeeeeeeeeAAeAeKKeeee eee KATA TATA AA AAA Tee AeA ATA Aeeee TTT 
£81 1965 
+t 1308 ; 
£81 1967 ; Bitwise Operators 
+t 1968 ;_ 
0E81 1969 bit_and_b_b: 


a 
2 
=< 
*. 
aon 
-— 
$s 
aa 
uous 
wm 
i | ~ ~ 
war w ~w 
- ‘= = 
~ ~ 
. s 
me | Aled 
mw mw 
w st et 
rr Se al 
m = m = 
a nm tS al 
~ & ~ c& 
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S83 383 


oy 


; EQv 


Ovr BOVr OV DCOOCre 
Wew Boe be 
=zoc st eec~s ee o= <a 


wemow 


BDGGOGOGOGCOMNAAAAAGAO ff 
wd dd ad a ss a as 
ae eee ew law lw lol ololololololo) 


Now 
ODodoQ 


me 
ow 


mo 
mo 


w 
o 


OM UM TN OR. DOO-— CUM TMNOR. OKO ww 
RRR. DWDM DWDODDODDDAAAAOO 
PDAAAAAAAAAAAAAAAA AAA AOA RAO 


C 
XORL 
RET 


96 


(r2),(r4) 


b: 
MCOMB 
RET 


not. 


97 bit 
98 
9 


(r2),(r4) 


0 bit 


s “Ein € 


(r2),(r4) 


= 
or 


“Ow Ow Bw 


; OR 


(r3),¢r2),(r4) 


“Ne 


(r3),¢r2),(r4) 


“ae 


(r3),¢r2),(r4) 


“Ae 


; XOR, NEQV 


(r3),(r2),(r4) 


(r3),¢r2),(r4) 


~ 

w 

ee 

~ 

* 

-~ 

N 

e 

~ 

. 

=~ 

La) 

i 

~ 

Lal 
or oa 
—aro 
Ow 
i eens 
= a 
°o € 
= - 
t t 
ae td 
- - 
2a sa 


NPM TN OR. DHOOM TNO. DHOOM CUM TNO 
AOOOCOCSOSCSOOCSCS eK KK KK KKK KK NNCNCON 
AARAAAOOOOCSOOOSCOSOOOSOOOOOOOOOOOOOSOOSSOOO 
EL III III III OOO OOOO OI OOOO ONIONS 


—TFOROA VOK— — FODOOO VO KK — IF DOOOA VO KKK TMMNDAA VOAOBOK— NNVNOR-KR. DOVVORK-  -NnNOOICD 
I< FC I MODOMODADADADAMDAMMAADODlVVEGovvvvvGoaoaasashsa 


WwW ss ds a sd da a a 


COOOOOOSOOSOCOCOOCSOOOSSCOOSOSSOSOSOSCOOOOOSOCOOOoO 


<<< 

tA dL 

oooo 

wow Now 

acto avo 

me mae 

own own 

mo mow 

mo Wo 
w wT 
o ~o 


NG 
ao 


N 
oO 


w 
oOo 


NS 
ao 
N 
~o 


w 
bo) 


NS 
ao 


N 
oO 


~w 
oO 


ow 
coo 


~ 
o) 
™N 
o 


~ 
o 


ow 
zo 


~ 
oO 
™N 
eo 


w 
oO 


ow 
vo 


~ 
o 
™N 
oO 


wr 
o 


av 
oo 
La] 
Oo 
N 
Oo 


~~ 
oO 


ow 
<o 
~_ 
eo 
™N 
o 


~w 
o 


av 
Vo 
La) 
~~ 
N 
~o 


wT 
oO 


fo --- -- 


‘seo 
| 


| 
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dbg$per form_operator 46-SEP-1984 23:56:4 DEBUG. SRC DBGPERMOP.MAR; 1 (3), 
5 9 EDB 7 MCOM (r2), £2 
64 FA} 85 8 43 8 Biss r2, (r3), (4) 
EE 0 bit_imp_w_w: 
26 9 B EE 1 MCOMW §=(r2), £2 
64 6 ar 4 8 ; oi 309 r2, (r3), (r4) 
EEB Bae bit_imp_t_l: 
36 §¢ Dd EEB 2035 BC OM (r2), r2 
64 «6 C EE 0 § BISL r2, (r3), (r4) 
04 O€EF 8 RET 
OEF3 5039 
per 040 FERRARA EAE 
EF 041 ; 
per ek 3 : @ 64: ¢ 6% AN D and Nn OT and OR 
+H 044 ITTIIITITITITITI TILT TLLL ITIL LT LITTLE LiL itil i titi 
sere $8 
OEF he ; Logical Operators 
SEES 5029 and_b_b: 
62 95 OFFS 2050 ~~ TSTB  (r2) ; AND 
gE GETS SBE HERE dehyanesrents 
r 
28 813 «OEF9 $088 BEQL set_and_result 
64 01 DO OEFB spat MOVL #1,Tr4) 
04 OEFE 2055 RET 
62 BS OFFE 208F rote cred 
02 G8) GBs BERL fefytndresut 
1¢ 13 OFO5 2060 BEQL set_and_result 
64 01 DO OFO7 soe] MOVL #1,Tr4) 
OEE SB ana ttl 
n : 
62 DS OFOB 2064 mi FR, (r2) 
63 DS OFOF 3066 mn owe 
10 13 oF 067 BEQL set_and_result 
64 01 DO OFI3 2068 MOVL #1,Tr4) 
BE BFF ana.aact 
an : 
62 3 F17 $54 ~~ o> Seen (r2) 
0° 1 F19 058 BEQL set and_result 
6 73 OFIB 207 TSTD (r3) 
04 13 OFID 2074 BEQL set_and_result 
64 01 B0 ah OF eovl #1,Tr4) 
a 079 set_and_result: 
64 D4 OF 078 CLRL (r4) 
04 OF 079 
56 5081 
F26 § not_b: 
62 95 OF 26 TSTB (r2) 


F 15 
15-SEP-1984 § :45:1 
4 


dbg$per form_operator “SEP-1984 235:56:4 
18 13 OF28 4 BEQL set_not_result 
64 4 OF2A 5 CLRL (r4J 
4 OF2C § RET 
F2D not_w: 
$¢ B F2D : TSTW (r2) 
1 1 FF BEQL set _not_result 
64 D4 OFS) 0 CLRL (r4F 
04 OF33 91 RET 
F 34 38 not_l: 
62 rf F 34 9 TSTL (r2) 
OA F $ 94 BEQL set_not_result 
64 D4 OF 95 CLRL (r4J 
04 OFS3A 3g RET 
F 38 97 not_d: 
g¢ 7 oF $43 TSTD (r2) 
0 1 F3D 9 BESL set_not_result 
64 04 OFSF 100 CLRL r4y 
04 ore) 101 
F4 138 set_not_result: 
64 O01 DO OF4 10 MOVL #1,(r4) 
04 OF4 104 RET 
OF46 2105 
OF46 2106 or_b_b: 
62 95 OF46 2107 TSTB (r2) 3; OR 
28 4 OF48 2108 BNEQ set_or_result 
63 95 OF4A 2109 TSTB (r3J 
24 «#12 «OFSC 2110 BNEQ set_or_result 
64 DS OFSE 2111 CLRL (r4) 
04 OF50 We RET 
OF51 2113 or_w_w: 
62 B65 OF at 114 TSTW (r2) 
1D 12 OFS3 2115 BNEQ set_or_result 
63 B5 OF55 2116 TSTW (r3) 
19 12 OF5S7 2117 BNEQ set_or_result 
64 D4 OF59 2118 CLRL (r4J 
04 OFS5SB 2119 ET 
OF5C 2120 or_l_l: 
62 D5 OF5SC 2121 TSTL (r2) 
\¢ 12 et 1 ¢ BNEQ set_or_result 
6 DS OF6 1 TSTL (r33 
OE 12 OF62 2124 BNEQ set_or_result 
64 DS OF64 2125 CLRL (r4J 
04 BF 6G 1 § ET 
F6 1 
F67 2128 or_d_d: 
be 73° OF67 2129 TSTD (r2) 
0 \¢ F69 2130 BNEQ set_or_result 
oe F6B 2131 TSTD (3) 
03 12 OF6D 21 § BNEQ set_or_result 
64 804 4 1 CLRL (r4J 
04 OF71 2134 RET 
F7 135 
F7 1 § set_or_result: 
64 O01 DO OF? 1 MOVL #1,(r4) 
04 OF7 138 
F76 21359 
F76 2140 xor_t_l: 
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DBGPERMOP 15-SEP-1984 745:1 AX/VMS Macro V04-00 Page 4 
Vv dbg$per form_operator raat $3:62:) DEBUG. SRC JDBGPERMOP .MAR; 1 “ (3) 
$¢ D F76 141 TSTL ) 
1 F7 146 BEQL xor_l_l_1$ 
83 Dd F7A 214 TSTL (r33 
aro 2 F7C 2144 BEQL set_xor_result 
64 Be 443 145 CLRL (r4J 
4 OF 138 ae! 
F81 2147 xor_l_l_1$: 
6 D5 OF81 138 TSTL (R3) 
0 12 OF83 214 BNEQ set_xor_result 
64 D4 OF ; 150 CLRL (ray 
04 OF 151 ET 
F ; 12 set_xor_result: 
64 01 DO OF 1 MOVL #1,09°4) 
mf Oree 5155 eS 
OF 8C 136 FRA AAE RARER AAA AERA RE AAAA AERA AEEAAAAAEAREEREERAAHAAHARAARAKe Ree eee Tt 
OF8C 2157 ; 
pret 138 : Be 8.0.¥ 8-8 € Oe omt F 4A OS 
OF 8C 160 WITTIIIII TIT IT ITI TIT TLTTiTiTi titi i iii iiitiiiiiiiiiiititiiiiiiti titi iii i i 
OF8C 2161 
OF 8C 196 
OF8C 21635 ; Negat’ng Arithmetic 
OF8C 2164 ; 
F8C 2165 unary_minus_b: 
64 62 8E OFBC 2166 MNEGB = (r2), (4) 
01 1D OF BF 167 BVS umb$ 
04 OF9I 168 RET 
OF9 169 umb$: 
F31B 4 =6931 «OF9 170 BRW int_over flow 
OF9 171 
OF95 176 unary_minus_w: 
64 62 AE OF95 217 MNEGW = (2), (4) 
01 1D OF98B 2174 BVS umw$ 
04 OF9A 2175 RET 
OF 98 176 umw$ : 
F312 «31 «4OF9B 217 BRwW int_over flow 
OF9E 2178 
Ore 179 unary_minus_ |: 
64 62 CE OF9E 2180 MNEGL (2), (r4) 
91 1D OFAI 181 BVS uml$ 
04 OFA3 21 ; RET 
OFAS 2183 uml$: 
F309 «31 (OFAS «2184 BRW int_over flow 
FA? 2185 ; 
FA? 21 § unary_minus bu: ; 
64 OOOOFFFF 8F 62 C3 OFA? 218 suBC (r2) ,M°XFFFF, (r4) ; The negative of an uns igned quantity 
04 OFAF 21 8 ; is computed by subtracting its value 
FB 1 : from 2**32 in C. 
FB 1 unary _minus_f: 
64 62 52 OFB 19 MNEGF (r2),(r4) 
04 OFB 19¢ 
FB4 2195 unary_minus_d: 
64 62 72 OFB& 2194 MNEGD (r2),(r4) 
OBE 8s nary.a 
unary_minus_g: 
64 62 52FD ree 199 ¥e MNEGC (r2),(r4) 


<o 


04 AG 
08 A4 
08 A4 


10 A4 


04 A4 


08 A4 


dbg$per form_operator 


04 


64 62 72FD 
04 


64 6¢ 
04 A 

64 6g 
08 A 

64 6¢ 
08 A 

64 6¢ 7 
10 Ad 7 

64 62 

64 62 

64 62 

64 62 

64 62 


omn OMT ONN OVUM 
foo £09090 SFr srr 


90 
04 


B0 
04 


DO 
04 
50 
04 


70 
04 


64 62 50FD 
04 


64 62 70FD 
04 


64 62 
04 Ad 


sary) $3 


at tt I I I MQOOCOOCOOCOCOCOCOOCOSCOSOOSCOOOSOOCSOOOOSooO 
PaVot-t—-l-l-l 1-11-11 —) 1 — aba aba a a a a a nd ns nc na a na a a a a ond a a ns nd 


1 


PRP INITNIRIRINININININIRIRIRIR ITI a eee oe 
— 
OOONA NEW CO ODNAUE WN OOONOUS wir — 


THN HHH HMMM MMMmMmMmMmmMmmMmooOC OVC MOMOOOOOoowwIw 


COOP VWIWIM MNS S FS OO AOSUNN MMOS SP PPP POW MOL SWS vwrv9w 9 oO 


38 RET 
99 unary_minus 
0 MN 


onary ious 


RE 
wnery plus 


RE 
wtery plus d: 


h: 
EGH 
ET 


unary_minus_fc: 
ve MNEGF 


MNEGF 
RET 


unary_minus_dc: 
es MNEGD 


MNEGD 
RET 


unary _minus_gc: 
MNEGC 


MNEGG 
RET 


NEG 
MNEGH 
RET 


3; Move a scalar 
unary_plus b: 


ovB 
RET 


unar lus_w: 
al mMo0W 


lL: 
OvL 
RET 


unary_plus_f: 
M 


ovF 
T 


i 
Boe 
F 4 OVD 
f 3 unar te : 
40 7=PhnOve. 
4 l h: 
BS $246 wnery.olsi 
aa coe 
0 46 unary_plus_fc: 
BB 5549 unary -Plusof 
8 MOVF 
1 rt! unar es aa 
11 $59y Unary Plus oe: 
14 26 MOVD 
19 5 RET 
1A 4 


unary _plus_gc: 


he: 
H 


ASEb=1986 83: 


(r2), (4) 


(r2),¢r4) 
4(r25,4(r4) 


quantity 
(r2),(r4) 
(r2),(r4) 


(r2),(r4) 


(r2),(r4) 
(r2),(r4) 
(r2),(r4) 


(r2),(r4) 


4 
5 


5: 
6: 


1 
4 


oY 
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DBGPERMOP i 984 245:1 AX/VMS Macro ¥04-00 Pa 4 
yore 500 dbg$per form_operator 984 : 56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 - 03) 
64 6g abro 101A 55 #OVG (r2),(r4) 
08 AG «(OBA 1 IE 36 RovG = 825, 8(r4) 
= i 5 58 unar a he 
u u : 
64, $2 70D 1085 25 UNary Plus Mee oy Crd) 
10 AG 10 Ad 70FD 1029 2260 MOVH 16(r2),16(r4) 
04 102F 61 RET 
138 388 
1938 t: FRAT AAA EEE AERA EEE THRAEAARAAAARAAAAATAAAEAAAE 
1030 66 ; ABSOLUTE VALUE 
1935 368 WITITIIITITITILIIITIIT LILI LTTE 
1930 $3 abs_b: 
62 95 1939 71 TSTB (r2) 
04 +19 103 i BLSS abs_b_negate 
AO 2b Be oo BR eee 
1038 75 obs_D_negate: 
64 62 8E 1038 6 NEGB (r2),(r4) 
04 1038 227 RET 
193 8 abs_w 
62 B65 103C 80 " TSTw (r2) 
04 19 103E 2281 BLSS abs w_negate 
eet Oe ae ae eid 
1044 2284 abe _u_nogate: 
64 62 AE 1044 85 NEGW (r2),(r4) 
04 1047 86 
1908 4 abs_l: 
62 1048 89 ~  TSTL (r2) 
04 19 104A 90 BLSS abs_l_negate 
64 62 4 inet $3) st (r23,Ur4 
1050 298 abe, |_nogate 
64 62 CE 1929 94 (r2),(r4) 
04 105 95 RE 
1936 3 abs_f 
62 i 22 38 7 TSTF (r2) 
04 19 1056 9 BLSS abs. f f negate 
wR to ae 
105C § abs_f negate: 
64 62 52 105C¢ NEGF (r2),(r4) 
04 ' it : 
106 $ abs_d: 
62 73 106 TSTD (r2) 
06 19 106 8 BLSS abs d negate 
64 62 ty ' rf f move J,tr4 
1068 9 abs_d_negate: 


| J 15 
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V 500 dbg$per form_operator 4 See 19b4 5 88:19 tpeauG sRe DBGPERMOP.MAR; 1 ’ (3) 


64 62 


72 1068 1 MNEGD (r2),(r4) 
04 68 
abs_q: 
62 5380 mtg eT ei 
n 
64 62 SOFD MOVG (ray tres . 
04 T 
64 62 52FD (r2),(r4) 
2 


TSTH (r2) 
BLSS abs_b pogete 


64 MOVH (r23,Ur4 
RET 


64 62 72FD (r2),(r4) 


SEAR AAT AEA AARAAAEAEAAAAAAAAAAAARRERAAATAAREAATAAAAATAART REAR ee 
. 

e 

; DEREFERENCIN G 

. 

e 


FRA AE AERA A AAA AA AAA ARATE AARAAKARAAERARKAKEAARAAAAA RAAT 


; Dereferencing Pointers 


PPPP PP PPPPP PPP POMS OMIWD POO MAMO 


indirect_lu: 
USH 


—l—t—! 
SOS OLLM0..59 0.59 G9 G9 99.09.99. 0969 0969 99 III INI III IO 
BER ERE EES FWWWWWIWINWINIAIROPOPONONNONINID) SS SS So 


SSSSSSSSss Soo 
PP PP PE Pt teat PD tee 
PIPIPIPIPOPOPIMINININPINPONIMININPINININININ 


ODOQOOOOCOCOCOCOOOCOOOSOOOOCOOOOOOOoO 


Q0000030'EF DD P argi desc : 
QOO00000'EF 01 FB CALLS #} .dbgSbliss_indirection 
64 50 00 7 MOVL r0,(r4) 
04 ~ RET 
098 ; Indirection of a pointer in Language C. 
098 ; We pass in the entire value descriptor (because the indirection 
098 ; needs to look at the typeid). The routine returns a new descriptor 


; that represents the result of the indirection. We put a pointer 
; to this new descriptor back into the RESULT_ADDR output parameter. 
i 


ndirect_tptr: 


P.ANILANI NIA. AINA WIN NINIAII NANI WI WINININIIANIAIW WI 


00000034"EF DD PUSHL argl_valdesc 2 
00000000 ' EF 91 fB CALLS #1,dBg$c_indirection 
14 BC 0 0 Rove r0,aresult_addr (AP) 


RARER AAAAASEAAAAAAARATAAAAAAAARATAAAAARAAAAAARAAATAARAAERAAAAAAAAAAAEAAARAAA eee 


; ‘ss: 8 ke £2 44 


FRAKAKAAAAH TATRA A KAKA K AAA AAT AAAKReKAKAeKeHAAHAKe TAKARA KeKeeKeeeeeeeAeeeeAeees 


a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
CNAME WIN 3 O OO NAUEWIN  O ODONAUE WIN 3 0 OD NAME WIN 0 OD NAME WW OO OOONIOUIE 


PAA A AAA MINN 
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K 15 
DRorE RAO? 177350= 1388 g 24531 AX/VMS Macro V04-00 Page 
v04-000 dbg$per form_operator 44-SEP-1984 23:56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 


10AD 
QOOO04O'EF DD 
QOOOO30"EF DD 
04 ry" DD 
QOOOOOOO"EF 0 FB 
04 
D4 


_ 
oO: 
Je 
o 


9 
8 ; BLISS bit-select operator (X<p,s,e>) 


7 . 
‘ bitselect: 
PUSHL result_desc 
PUSHL argl_desc 
PUSHL seer ster neg ft 
CALLS #3,dbg$bliss_bitselect 


SURAT AAA EERE AEA AAA AEEERAA ERATE eee 
e 

: 2 ea. 

: 

SERRA RAAT EEREAAEA AEE RARE 


3; Difference of Two Sets 
difference set_set: 
CLRL r5 


DOOOOOOO OOO WOWWWOWWOODOOOo VN INS 
OWDNOUES WN ("OOO NOAUE WN OOONOuns 


HPAES FWWAAAWAAWIAAAAAAAAAI AAI AINNIANI NAAN 


OO TF HHH HHH HMM MMM MMO AIAIOMOOOOOAOOAOOOOOKWWW>r>r YY 
PS POOKOA LVM OO SOL LH HMNWA LLL LLLLL LLL SE EWO OWT 


1 
1 
1 
1 
1 
10 
10 
10 
1g 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
55 10 
56 D4 10 L r6 
55 Q0000030'FF B80 10 MOVW @argi_desc,r5 
56 0000038'FF BO 10 MOVW @arg2_desc,r6 
00000040'FF O0000030'FF B80 10 MOVW @argi_desc,@result_desc 
50 54 »d0 10 MOVL r4,r0 
10 difference _seti$: 
80 82 83 8B 10 BIBS = (rr 3) +, (r2)+,(r0)+ 
, a. DECL r5 
56 D7 10 00 DECL r6 
55 D5 10 01 TSTL r5 
06 12 10 88 BNEQ difference_set2$ 
56 D5 10 0 TSTL r6 
10 12 10 04 BNEQ difference_set4$ 
21 11 «10 405 BR difference_set_ret$ 
10 406 difference _set2$: 
56 D5 10 407 TSTL r 
EA 12 10 408 BNEQ difference_set1$ 
10 409 difference gqt3s: 
80 82 FF 8F Hy 10 410 B1tB #°XFE,(F2)+,(r0)+ 
F855 FS 10FF 2411 SOBGTR r5,difference set3$ 
13° «11—«1102 alg BRE difference_set_ret$ 
1104 2415 difference sqths: 
80 FF 8F 83 1138 414 B1CtB (r3)+,#*XFF,(r0)+ 
F8 56 F5 1109 2415 SOBGTR r6,ditference_set4$ 
00000040'FF O00000038'FF 860 1196 218 MOVW @arg2_desc,,aresult_desc 
111 417 difference _set_ret$: 
04 1117 $18 RET 
111 41 
111 420 
111 421 ; Set Equal 
111 4 § 3 
111 425 eql_set_set: 
64 D4 111 424 CLRL (r4) 
55 D4 111A 2425 CLRL r5 


L 15 ; 
y -SEP- 1384 $3: 245:1 AX/VMS Macro v04-00 Page 45 | 
4-SEP- 


BNEQ egl _set rets 
g0ueTe r5,eql_set3$ 
OVL ni (r4y 
eq(_set_rets 
(r3)+,#*x00 
BNEQ eql _set ret$ 
SOBGTR r6,eql_Set4$ 
MOVL in. (r4y 
eql_set_ret$: 
RET 


o 

S 
nn 
oo 


BR B 
eql_set4$: 
CMPB 


So 

oO 
= 
fo) 


DBGPERMOP 
VOe- 500 dbg$per form_operator 984 23:56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 (3). 
564 CLRL se r'6 | 
55 Q0000030'FF 80 dy @argi_desc.r5 
33 BboobOsS EE BO OVW  aarg2-desc.ré 
eql_ setts. 
82 3°6CO«9 CMPB (r3)+,(r2)+ 
p 1 BNEQ egl. set_ rets 
i) DECL 
28 D DECL r 
5 dS TSTL r 
09 i BNEQ ° L_set2$ 
56 «(=D TSTL 
16 is BNEQ eal se setas 
64 01 D MOVL 
1c (17 BRB hy - ¥ rets 
eql_ setes: 
56 6S TSTL r6 
E6 12 BNEQ eql_seti$ 
eql_set3$: 
82 09 91 CMPB #*xX00,(r2)+ 
1 ig 
55 OCF 
01 00 
0B ii 
83 (91 
06 ig 
ee 
01 + ~»v0 


o 
Fa 


; Set B is a subset of Set A 
geq_set_set: 
° CLRL 


: 
: 
: 
: 


PRE R RRR RRR RRR ERE REE R EPR EEE EPP PEE 
AAPAAOAUUINMAM AWE BB BE EEE BWANA AANA 


em ee a a ad tk et ot = = = SS ts Ss SS SS SS SS SS SS SS 1 3 SS SS SS SS YS SS SS SS FH YY YH IS SS 
me a ed ed ed ot ed = = = ss = 8 = = ss 2 SS SS SS SS SS) SS SS SS SS SS St SS 
©00000 0000 0909 MINI SI NIN NINN NOAA AOA MIMI UU UT UU UU BS BS BB EWI 
DODOODOUAMM MMMM OQOWO VW FH HET OO COP WN ND OPO ES NINVOOS DW ON MOOUIMO 
MR —DOONON ES WADI) OOO WNAUE WN =O ODNAU EWA) 0 OO NOAUE WI (OOO NOUS WN OOOnNO 


64 04 L (r4) 
55 D4 CLRL r5 
56 D4 CLRL r6 
56 Q0000030'FF 80 MOVW @argi_desc.ré 
55 00000038'FF B60 4 MOVW aarge- desc,r5 
50 36 dO 46 MOVL t2.F 
26 5 de) 46 MOVL r3,r 
5 50 00 46 MOVL r0.r 
7% ~«=« ry BRB lLeq_set1$ 
47 
rts 3: IN, C is an element of Set B 
474 in_set_set: 
64 63 01 6¢ ff 47 EXTZV  (r2),#1, (73), (74) 
0 3 47 BEQL n_set$ 
64 01 dO 47 MOVL #1,(r4) 
478 in_set$: 
04 47 RET 
is 
4 3; Intersection of Two Sets 


DBGPERMOP 15=SEP=1984 23:45:18 VAX/VMS Macro V04-00 Page 46. 
mireats dbgSper form_operator 2a SEE TSBs 88585509 FOREMES Magee VOTE Oe wars1 Page $) 


; Set A is a subset of Set B 
lea. set fet: 


1189 T hn t_set 
ntersect_set_set: 
55 4 9 cCrRt ~ 5 
56 «4 B § LRL r6 
55 £00008 Ree BO D MOVW dargl_ gest. 3 
56 O000038'FF 860 4 8 MOVW @arg2_des 
00000040 ' FF wre O'FF Be 98 MOVW @argi_ desc aresult. desc 
7 Ti Sl tee weet tt 
ntersect_se 
3) 83 92 A9 § MCOM (r3) 
80 82 51 88 A BItB ri, (ebb, (r0)+ 
2? D B 4 DECL r5- 
g D7 B 5 DECL r 
5 dS B4 $ TSTL r 
06 12 B6 BNEQ intersect_set2$ 
56 ©D5 B8 8 TSTL r6 
OF 12 BA 9 BN satersest _set4s 
| ae BC 0 BRB intersect_set_ret$ 
BE 1 intersect_set2$: 
56 D5 BE ¢ TSTL r6 
es BNEQ intersect_set1$ 
4 intersect beets: 
80 82 00 8 5 #*X00,(r2)+,(r0)+ 
F9 55—séF‘S 6 Pete r5, intersect_set3$ 
| iim | 7 intersect set_ret$ 
8 intersect_set4$: 
80 00 83 4&8 G (r3)+,#°xX00, (r0)+ 
F9 56—Sso#F‘S 0 SOBGTR ré, intersect_ set4$ 
00000040'°FF Q0000038'FF B80 1 MOVW a@arg2_ desc,aresult_desc 
; intersect set_ret$: 
04 RET 
4 
5 
6 
7 
8 
9 
0 
4 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
: 
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8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 


64 D4 LRL (r4) 
55 4 CLRL r5 
56s «4 CLRL ré6 
55 OQO0000030'FF B80 oe @argi_desc.r5 
56 00000038'FF B80 , nee OVW @arg2_desc,r6 
eq_se 
50 82 83 Be ‘. Bice (r3)+,(r2)+,r0 
i. 2 TSTB r0 
1 6 BNEG Led_set_rets 
72s 6} 8 DECL r 
26 07 g DECL r 
5 D5 0 TSTL r 
2? ig 1 BNEQ Leq. set2$ 
6 OD § TSTL 
1A is BNEQ teq set4s 
64 01 OD 4 MOVL »tr4) 
20.=«—o11 5 gre ty Fi ret$ 
§ leq_set2$: 
23 3 B pied e seti$ 
eq_ 
OF § leq_set3$: 
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| DBGPERMOP _” 15-SEP-1984 45:1 AX/VMS M v04-00 
“SEP- 745: acro - 
M0600 dbg$per form_operator 2-3e 138 33:33:18 toeauG sre DBGPERMOP MAR; 1 
51 e3 » 127 444 CMPL ri 
w ; 9 BEQL neq_set_ret$ 
64 01 D0 1383 539 nov iotra)” 
1286 ony neq_set_ret$: 
04 1 : 601 RET 
1 one 
1287 260 
1287 2604 ; Union or Two Sets 
1587 5606 union_set_set 
union set set: 
55 DS 1287 $09 “CCR r5 
56 D4 1289 one CLRL ré 
55 Q0000030'FF B60 1 609 MOVW @arg! desc.r5 
56 Q00000038'FF B80 129 610 MOVW @arg2_desc,ré6 
00600040 ' FF 00009830" Cf BO 129 611 MOVW @argi_desc,aresult_desc 
54 DO 12A4 o1¢ MOVL r4,r0 
12A7 2613 union_set1$: 
80 82 83 89 112A? 2614 BIS (r3)+,(r2)+,(r0)+ 
55 D7 12AB 2615 DECL r5 
56 D7? 12AD 2616 DECL r6 
55 DS 12AF 2617 TSTL r5 
06 1g 12B1 2618 BNEQ union_set2$ 
56 D5 1283 2619 TSTL =r 
OE 12 1285 2620 BNEQ union_set4$ 
1D 11 1287 2621 BRB union_set_ret$ 
12B9 26 ; union_set2$: 
56 D5 1289 26 TSTL r6 
EA 12 12BB 2624 BNEQ union_set1$ 
12BD $$? union_set3$: 
80 8 90 12BD 2626 MOV (r2)+,(r0)+ 
FA 5 F5 isc? 627 SOBGTR r5,union_set3$ 
11-11 «123 «2628 BRB union_set_ret$ 
12¢5 $6? union_set4$: 
80 83 90 12€5 2630 MOV (e3)+,(r0)+ 
FA 56 FS 12C8 2631 SOBGTR ré6,union_set4$ 
00000040'FF Q0000038'FF B80 12CB so36 MOVW @arg2_desc ,aresult_desc 
1206 rt union_set_ret$: 
04 1206 2634 RET 
1207 2635 
1207 O36 ; C address-of operator. e 
1207 2637 ; We pass in the entire value descriptor to the C_ADDRESS_OF routine, 
1s07 638 ; because it will need to look at the typeid. We also pass ina 
12D7 2639 ; pointer to the result value descriptor. This routine will fill 
1207 2640 ; in the result value descriptor. 
1207 2641 ; 
12D7 red address_l: 
00000044'EF DD 1207 264 PUSHL result_valdesc 
00000034°EF DD 1 op 644 PUSHL argi_valdesc 
OO000000'EF 02 FB 12E 645 CALLS #2,dBg$c_address_of 
04 12EA 968 RET 
12EB 264 
12EB 2648 
12EB 2649 ; C SIZEOF operator : : ; 
12EB $20 ; Pass in the entire value descriptor to the C_SIZEOF routine, (It will 
i 4 b2 3; have to look at the typeid.) This routine will return the size in RO. 
12EB $88 sizeof_l: 


rm Hh 


} 


DBGPERMOP 15-SEP-1984 :45:1 AX/VMS Macro V04-00 Page 49 
yore 000 cog$per form_operator amet 33:63:18 toeBuG.sRe DBGPERMOP .MAR; 1 . (3) 
OO00034"EF DD 12€ 654 PUSHL argi_valdesc 
0000000" EF i PB SET 5688 CALLS #1 -d5g8c.sizeot 
0 0 12F8 $28 MOVL r0,(r4) 
4 12FB 265 RET 
12FC 2658 : 
: 4: 223 ; Addition of typed pointer and integer in C. 
12FC 2661 add_tptr_l: 
Q00000464°EF DD 12F 666 PUSHL result_valdesc 
sleet DD 130 66 PUSHL argée_valdesc 
QOO00034"EF DD 130 664 PUSHL argl_valdesc 
OOOOOO0O'EF O03 FB 1 of 665 CALLS #3,dBg$c_add_tptr_l 
Bint en 
1316 2668 ; Subtraction of typed pointer and integer in (. 
1316 2669 ; 
1316 2670 sub_tptr_l: 
00000044'EF DD 1316 2671 PUSHL result_valdesc 
OOOQOOSC'EF ODD 1335 of6 PUSHL argée_valdesc 
00000034"EF DD 132 67 PUSHL argi_valdesc 
QOOOOOO0O'EF 03 FB 1328 2674 CALLS #3,dBg$c_sub_tptr_l 
04 1366 675 RET 
1330 2676 : > 
1330 2677 ; Subtraction of two typed pointers in C. 
1330 2678 ; 
1330 2679 sub_tptr beers 
00000044'°EF DD 1330 680 PUSHL result_valdesc 
OOOOOO3C'EF DD 1336 2681 PUSHL argée_valdesc 
00000034"EF DD 133C¢ one PUSHL argl_valdesc 
O0000000'EF 03 FB 1342 268 CALLS #3,dBg$c_sub_tptr_tptr 
04 1349 2684 RET 
134A 2685 
134A 2686 ; increment and decrement in C (+#X X++ <--X X=) 
134A 2687 5; 
134A tt: pre_incr_L: 
134A 2689 pre_incr lu: 
00028723 8F DD 134A 2690 PUSHL edbgs Gpreiner 
00000000'GF 01 FB 1350 2691 CALLS #1,G*Tib$signal 
64 62 00 1357 69¢ MOVL (re), (r4) 
64 D6 135A 269 INCL (r4) 
04 135C 2694 REI 
135D 2695 : 
135D 2696 pre_incr_d: ‘ 
00028723 8F DD 135D 2697 PUSHL sdbgs spreincr 
00000000'GF 01 FB 1363 2698 CALLS #1,G*Tid$signal 
64 62 70 136A 2699 MOVD (re), (r4) 
64 08 60 1360 270 ADDD2 #1.,(r4) 
04 1300 701 RET 
1371 44 ‘ 
137 A pre_incr wre : 
00028723 8F DD 1371 2704 PUSHL #dbg$ ¢ reincr 
00000000'GF 01 FB 1377 2705 CALLS #1,G6*Tib$signal 
00000034"EF DD 137E 27 § PUSHL argi_valdesc | 
00000000'EF O01 FB 138 7 CALLS #\.dbgsc_pre_incr_tptr 
64 50 00 3 B 2708 MOVL r0,(r4) 
04 1 se 709 RET 
138F 710 


DBGPERMOP 
v04-000 


00028728 8F 
00000000'GF 01 
64 62 


00028733 8F 
ee = 01 


62 

64 

00028733 8F 
00000000°GF 01 
64 62 

64 08 


00028733 8F 
Q0000000°GF_ 01 
00000034 EF 
QOOO00000'EF 1 
64 50 


00028738 8F 
00000000°GF 01 
64 62 


00028738 of 
00000000° 4 


dbg$per form_operator 


138F 2711 post_incr_l: 

158F ne post_incr_ lu: 

138F 27135 post_incr— kote 
DD 158F 714 oS + $ BS Pot aes 
FB 1395 2715 CALLS ‘T $s! gnal 
DO 139C rig OVL tr) (rd 
04 139F 271 ET 

13A0 2718 

13A0 2719 post_incr_d: 
DD 13A0 2720 POSHL edbgs¢ ¢ ostince 
FB 13A6 2721 CALLS $signal 
70 13AD 27 : MOVD (rd) sre) 
04 138 7 RET 

1381 724 

1381 2725 pre_decr_l: 

13B1 2726 pre_decr lu: 
DD 1381 2727 PUSH Aer spredecr 
FB Bt 728 CALLS poe tenet 
d0 1 BF 129 MOVL (78) (r4 
D7? +(13C 730 DECL 
04 13€3 2731 RET 

13C4 13 

13C4 2733 pre_decr_d: 
DD 13€4 2734 PUSHL Herr iBestsne 
FB 13CA 2735 CALLS pSsignat 
70 1301 736 OVD 
62 1304 737 SUBD2 (2) (8) 
04 1307 2738 ET 

1308 2739 

1308 2740 pre_decr are 
DD 1308 2741 PUSHL od $ ripregece 
FB 130E PG CALLS ib$signal 
DD 13€ 74 PUSHL ara valdesc 
FB 13EB 2744 CALLS -dBgSc_ ore. decr_tptr 
dO Ieee 745 MOVL * (er 
04 13F 746 RET 

13F6 sree 

13F6 2748 post_decr_l: 

13F6 2749 post_decr_lu: 

13F6 $f20 post_decr_ cosh’: 
DD 13F6 2751 Aerts ¢ esidecr 
FB 13FC P36 atte t's ignal 
DO 1403 275 MOVL tr) Rh 
04 108 754 RET 

140 755 

1407 2756 post_decr_d: 
DD 1407 2757 POSHL Aer ‘Bes tonel 
FB 140D 2758 CALLS $signal 
70 1414 2759 MOVD (73) o(r4 
04 1417 2760 RET 

138 761 

141 106 i 3 

141 76 : 

141 764 : Pa ££ @ & Df DEC 

141 765 : 

1418 : 

1418 27 


I 
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706 MARBRBABRARARABRBRARLASLARAARERARARSRRERRRRSRARRRRE RRR RRR RRRR RR RRR RARER RRR RRR ARRAS DO | 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro V04-00 Pa 51 
yore 000 dbg$per form_operator 4 Seen 33:43:18 toeauG sre DBGPERMOP..riAR; 1 ™ (3) 


141 768 
141 8 ; Subtraction 
141 770 ; 
56 0000030"EF DO Jc18 S772 eP=P=P wow 1d Get left d 
: ar esc, r ; Get left desc. 
57 tddiitot ti DO 141F hg MOVL ore2-desc, r ; Get right desc. 
58 oooogyeo" et 0 1426 2774 MOVL result_desc rg ; Get result desc. 
67 3C 1420 2775 MOVZWL dsc$w_Tength(r7), r0 
50 50 FF 8F 8 14 2 ae ASHL #-1, 70, Fr : Get position of sign. 
048740 OF; 8C 14 77 XORB2 #1, adsc$a_pointer(r7)Cr0J ; Change sign and add. 
15 11 143A 2778 BRB addp$ 
143C 2779 
143C 2780 ; Addition. 
leat 781 ; 
143C Pe add_p_p: 
56 OQOO000030'EF DO 17g 78 MOVL argi_desc, r6 ; Get left desc. 
57 QO0000038'EF DO 144 ree MOVL arge_desc, r/ 3; Get right desc. 
58 00000040'EF DO 144A 2785 MOVL result_desc, r8 ; Get result desc. 
5E B8 AE VE 1451 2786 addp$: MOVAB -72(sp), sp ; Workspace. as 
56 DD 1455 2787 PUSHL fr ; Strip leading/trailing 
Q00001B58°EF 01 FB 1457 2788 CALLS #1, dbg$strip_zeroes 3 zeroes. 
57 DD 145€ 2789 PUSHL fr7 : Same again. 
00001B58°EF 01 FB 1460 2790 CALLS #1, dbg$strip_zeroes 
55 08 A6 O8 A? BF 1467 2791 SUBB3 dsc$b_scale(r7), dsc$b_scale(r6), r5 ; Get change of scale. 
OC 18 146D $738 BGEQ 1$ ; OK if shorter fraction. 
55 55 8E 146F 279 MNEGB 5, r5 ; Else, reverse operands. 
wy lUm.Um ere 2794 XORL2 6, r7 
56 657) «=6CC C1475) 2795 XORL r7. r6 
57 56 CC 1478 2796 XORL r6, v7 : 
50 66 55 81 147B 2797 1$ ADDB r5, dsc$w_length(r6), r0 ; Get total # digits. 
51 1€ 50 83 147F 2798 SUBBS =rQ, #30, F1 : Is length in range? 
14 18 1483 2799 GEQ 2s 
55 51 80 1485 2800 ADDB2) sri, r5 ; Too long. 
BA? 51 Be 1488 $60 SUBB2 srl, dsc$b_scale(r7) ; ; Adjust scale. 
6— 67 00 0487 67 51 FB 148C Ht) ASHP ri, dsc$w_length(r7), a@dsc$a_pointer(r7), #0, dsc$w_length(r7), (sp) 
4B? 6€ 67 34 1494 280 MOVP dsc$w_length(r7), (sp), adscSa_pointer(r?) 
6— 1F 00 486 66 55 FB 1499 Sane 2s ASHP r5, dsc$w_length(r6), adsc$a_pointer(r6), #0, #31, (sp) 
68 6€ 1F 046 af” 44 21 12a) 805 ADDP6 = dsc$w_length(r7), adsc$a_pointer(r7), - 
14AA $806 #31, (sp), dsc$w_Length(r8), adsc$a_pointer(r8) 
08 AB O08 A? 90 14AA 2807 MOVB dsc $b scale(r/), dsc$b_scale(r8) ; Copy scale. 
09 A 1F 90 14AF 2808 MOVB #31, dsc$b_digits(r8) 
04 1483 2809 RET 
14B4 319 % . 
14B4 11 ; Multiplication. 
14B4 aig : 
14B4 13 mul_p_p: 
5E 10 C2 1484 2814 SUBL #16. sp ; Work space 
56 Q0000030"EF D0 1487 2815 MOVL argi_desc, ré6 : Get descri 
57 Q0000038'°EF 00 1206 16 MOVL arg2_desc, r7 
58 anemanedl + DO 14C 17 MOVL result_desc, r8 
6 dD 14CC 18 PUSHL 6 : ; Strip zero 
00001B58°EF 01 FB 14C 19 CALLS #1, dbg$strip_zeroes ; length. 
57 DD 14D 0 PUSHL 7 3 
00001B58°EF 01 FB 14D 1 CALLS #1, dbg$strip_zeroes 
594 3 ¢ CLRL r9 
5A D4 14€ CLRL r10 


16 
DBGPERMOP 15-SEP-1984 :45:1 AX/VMS ™ 4e- 
O86 5-SE $3 S Macro v04-00 Page 4, 


- dbg$per form_operator 4-SEP=1984 25:56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 
59 7 66 Al 14€ 4 ADDW dsc$w_length(r6), dsc$w_length(r7), r9 3; Estimate | 
9 fi ts 1686 5 suBy ie ‘9 . _— 3 witt produ 
mu 3 No. 
5A 66 i AS 1468 5 SUBW3 dscSu, Length(r7), dsc$w_length(r6), r10 ; Yes. Will 
44 18 14EF | 8 BGEQ ; Want Longe 
4 A AE 14F1 9 MNEGW 10, 710 3; Switch ope 
1 56 DO 14F4 : 0 OVL rg. r 
2$ 57 = 00s 14F7 1 MOVL r?, cr 
5 51 DO 14FA 28 § MOVL ri,r 
5A 59 Bi 14FD 2833 1S: CMPW r9, 710 3 Algoe tthe 
gf 15 1500 2834 BLEQ - 1) r9 
59 A he 1208 B32 SUBW2 ss r'10, r9 s (2) re 
59 B6 150 $ INCW r : Hee 
59 59 FF 8F 78 1507 283 ASHL #-1, 79, £9 3 (1) 
58? 32 150¢ 2838 CVTWL 4 dsc$w_length(r7), f11 ; () 
6 59 Ad 150F 2839 SUBW r9, dsc$w_length(r7) 3 (3) 
08 A?) «359 80 1512 2840 ADDB2 =r9, dsc$b_scale(r7) s;. 80 e9 > 
52 «(59 7) 1516 2841 MNEGW 9, Fr 3 (1) 
6— 67 00 0487 58 26 FB 1519 Hd) ASHP r2, cil, @dsc$a_pointer(r7), #0, dsc$w_length(r7), (sp) ; (2) 
04 B87 6E& 6 34 1521 284 MOVP dsc$w_length(r7), (sp), adsc$a_pointertr7) : (3) 
59 SA AO 1526 2844 ADOW2 = ri0, r9 $ (4) 
5B 66 32 1529 2845 5$: CVIWL © dsc$w_length(r6), 111 : (5) 
66 59 A2 152C 2846 SUBW r9, dsc$w_length(r6) 
08 A6 «59 80 152F 2847 ADDB r9, dsc$b_scale(ré6) 
59 59 AE 1533 2848 MNEGW r9, Fr 
6— 66 00 0486 5B 59 FB 1536 2849 ASHP r9, ril, @dsc$a_pointer(r6), #0, dsc$w_length(r6), (sp) 
0486 6€ 66 34 1e78 329 an MOVP dsc$w_length(r6), (sp), adsc$a_pointerlré) 
mu : 
08 AB O08 A? 08 AB 81 1543 $e28 - ADDB3 = dsc$b_scale(r6), dsc$b_scale(r7), dsc$b_scale(r8) ; Get final 
09 AB IF 690 «(154A «285 MOVB #31, dsc$b_digits(r8) ; Number of 
68 09 AB 99 154 854 CVIBW dsc$b_digits(r8), dsc$w_length(r8) : Fill in nu 
1F 0487 67 04 “.. 68 25 1336 855 MULP dsc$w_length(r6), a@dsc$a_pointer(ré6), - : Multiply a 
155C 2856 dsc$w_length(r7), a@dsc$a_pointer(r7), - 
155C 2857 #31, ddsc$a_pointer(r8) 
04 155C 2858 RET 
155D 2859 ey ap 
155D 2860 ; Division. 
155D 2861 ; 
155D $o06 div_p_p: 
SE 10 £2 1550 286 SUBL #16, sp ; Workspace, 
56 Q0000030'EF DO 1560 2864 MOVL  argi_desc. r6 > Get descri 
57 Q0000038'EF DO 1567 2865 MOVL arg2_desc, r/ 3 zeroes 
58 QO000040 "EF DO 1366 368 MOVL result_desc, r8 
6 odd 15 6 PUSHL 6 
00001858'EF 01 FB 1577 2868 CALLS #1, dbg$strip_zeroes 
57 OD 157E 2869 PUSHL r7 
QOOOO1BSS"EF O01 F 1289 af CALL #1, dbgSstr ip. zeroes age 
5A 1F 66 AS 158 71 SUBW + | ength(r6), #31, r10 ; Dividend m 
08 A6 «5A 82 «(188 ae SUBB2 10, dsc$b_scale(ré) : ; Adjust 
6€ Ff O00 0486 66 5A €F8 158F 287 ASHP r10, dsc$w_length(r6), adsc$a_pointer(r6), #0, #31, (sp); Shift t 
0486 6€ 1F 34 1597 fh MOVP #31, (sp), a@dsc$a_pointer(r6) 
66 IF BO 159C 75 MOVW #31, dsc$w_lengthTré) : Length 
68 = 1F 159F 378 MOVW #31, dsc$w bongen(eS) ; Quotient p 
08 AB 68 15A2 8? cvTWB dsc§u_Lengthir ), dsc$b_scale(r8) : Number of 
08 AS 08 A6 _ 08 A? 15A6 78 SUBB dsc$b_scale(r7), dsc$b_Scale(r6), dsc$b_scale(r8) ; Estimate g 
7—E 67 C 15AD 2879 MOVZWL dsc$wilength(r75, -(sp) ; Push all i 
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DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro Vv04-00 Page 53 
V 600 dbg$per form_operator 2rSEp | 984 33:33:18 tpEBUG. SRE DBGPERMOP.MAR; 1 ° (3) 
0 po 158 0 PUSHL #0 
7E. 6 C 158 1 MOVZWL dsc$w_length(r8), -(sp) 
04 A bd 158 ¢ PUSHL dsc$a-pointer(r8) 
“ © C 1588 MOVZ2WL dsc$w_length(r7), -(sp) 
4 A? DD 1588 4 PUSHL dsc$a_pointer(r7 
4 ag DD 1206 5 PUSHL gacSe ointer(ré6) 
00000000'GF 0 FB 15C 6 CALLS #7, G*PLISDIV_PK_LONG 3 Do the div 
04 1368 87 ET 
15C 3 
15¢9 9 
15¢9 90 ; Unary minus. 
1369 53) ; 
15C9 3 unary _minus_p: 
56 QO000030'EF 00 1509 289 move argi_desc, ré : Get descri 
58 00000040'EF Re 15D0 2894 MOVL result_desc, r8 
50 66 3C 15D7 2895 MOVZWL dsc$w_Tength(r6), r0 
50 50 FF 8F 78 15DA 2896 ASHL “1, 70, fF ; Determine 
04 B640 01 8C I5DF 2897 XORB2 #1, A@dsc$a_pointer(ré6)Cr0] ; Change sig 
OE 11 15€4 2898 BRB unary_p$ : descript 
15E6 2899 
15E6 2900 ; Unary plus. 
15E6 2901 ; 
15E€6 2902 unary_plus P: ; 
56 O0000030'EF DO 1566 290 mov argi_desc, r6 ; Get descri 
58 O00000460'EF 00 15ED 2904 MOVL result_desc, r8 
15-4 2905 unary_p$ : 
56 DD 15F4 44 PUSHL f6 k ; Strip lead 
QOOOO1BS8"EF 01 FB 15F6 290 CALLS #1, dbg$strip_zeroes ; 
04868 0486 66 34 15FD 2908 MOVP dsc$w_length(r6), adsc$a_pointer(r6), adsc$a_pointer(r8); Move to re 
66 BO 1603 2909 MOVW dscou_tengthir6), dsc$w_Tength(r8) ; Adjust len 
08 4 08 AB 90 1606 2910 MOVB dsc$b_scale(r6), dsc$b_scale(r8) 
09 AB «68 «= 333-1608 «2911 CVTWB  dsc$w-length(r8), dsc$b_digits(r8) 
04 160F aig RET 
1018 91 
161 914 ; EQL, NEQ, GTR, GEQ, LSS, and LEQ. 
1610 2915 ; 
1610 2916 eql_p_p: ‘ 
56 O0000030°EF DO 1610 2917 MOVL argi_desc, r6 ; Get descri 
57 Q0000038"EF DO 1617 18 OVL arg2_desc, r7 
56 DD 161E 2919 PUSHL fF : ; Strip lead 
00001B58°EF 01 FB 16 9 3s4 CALLS #1, dbg$strip_zeroes ; zeroes. — 
57 OD 16 921 PUSHL ; Same again 
00001B58"EF 01 FB 1629 356 CALLS #1, dbg$strip_zeroes 
64 04 16 9 CLRL. = (rr 4) ; Assume NEQ 
04 87 67 0486 66 , 3 924 CMPP4 qsceu_longehirg). @dsc$a_pointer(r6), - ; Do the com 
163 925 dsc$w_length(r7), a@dsc$a_pointer(r7) ; be sure 
OA 12 1992 9 § BNEQ eq P 
08 A? «(08 ag 91 16 9 CMPB dsc$b_scale(r6), dsc$b_scale(r7) 
0 as 164 928 BNEQ «9 Pp 
64 01 DO 164 929 MOVL #1, (r4) ; Success. 
164 930 eql_p$ 
ECBD 31 1645 2931 BRW branch_ret 
164 S ; 
164 9335 neq_p_p: s 
56 OO000030'EF DO 164 934 MOVL argi_desc, r ; Get descri 
57 seated + DO 164F 2935 OVL arg2_desc, r 
6 ODD 1656 2936 PUSHL 6 3 Strip lead 
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+ ob al i ot det hs $3423] AX/VMS Macro V04-00 Page 54 
v04-000 dbg$per form_operator 46-SEP-1984 23:56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 (3) 
00001858'EF 1 45 1638 336 cus #. dbg$strip_zeroes 3 gorets. 
; Same again 
00001858 'EF 1 Fe 1961 9 3 CALL #1, dopsstrip_zerces ’ 
1 1668 2940 MOVL #i, (r4) ; Assume NEQ 
67 0486 66 7 196 941 CMPP4 = dsciw_length(r6), adsc$a_pointer(r6), = ; Do the com 
16 ar§ dsc$w_length(r7), addsc$a_pointer(r7) ;  =©sure to 
09 12 167 94 BNEQ neq Pp 
08 A708 a8 2 19f8 re oe dsc$ grcate(ra), dsc$b_scale(r7) 
ne 
64 04 1978 4 P CLRL (ray : Failure. 
ne : 
EBS 31 167 3948 SP" env sébrench_ret 
1880 380 tr : 
004d 30 1980 951 ° ~P-P spy setup_packed_numbers$ 
64 01 08 168 826 MOVL #1, (r4) ; Assume GTR 
67 04 86 66 1686 295 CMPP4 =dsc$w_length(r6), a@dsc$a_pointer(ré6), - ; Scales wer 
168D 2954 dsc$w_Llength(r7), adsc$a_pointer(r7) 
02 14 168D 2955 BGTR qtr ps ; 
64 D4 1eat 328 a a CLRL r4y ; Failure. 
r_ps: 
EC71 31 1691 2958 sta BRW branch_ret 
1696 5960 gea_p_p: 
0039 30 1694 5961 PP’ a cay setup_packed_nunberss 
64 01 DO 1697 328 MOVL #1, (r4) ; Assume GEQ 
67 0486 66 7 169A 296 CMPP4 dsc$w_length(r6), adsc$a_pointer(r6), - ; Scales wer 
16A1 2964 dsc$w_length(r7), a@dsc$a_pointer(r7) 
02 18 16A1 2965 BGEQ gea p$ 3 
64 04 1GA3 368 . CLRL r4) : Failure. 
e : 
ECSD 31 16A8 3968” GRY —brancti,ret 
16a8 $970 Lss_p_p: 
o O8F BR TEAR B97) Nasty getup packed, munberss 
,\F : 
67 04 B86 66 16AE 2978 CMPP4 dsc$w_length(r6), adsc$a_pointer(r6), - ; Scales wer 
1685 2974 dsc$w_length(r7), adsc$a_pointer(r7) 
02 19 1685 2975 BLSS Lss_p : 
64 D4 1387 376 t $ CLRL (43 ; Failure. 
ss_p$: 
EC49 31 1689 3978 ~ BRY- _—branch_ret 
1eB¢ 380 le : 
0011 30 168C 3B 9-P Pe cay setup_packed_numbers$ 
64 01 8 16BF 386 MOVL #1, (F4) ; Assume LEQ 
67 0486 66 16C2 298 CMPP4 dsc$w_length(r6), a@dsc$a_pointer(r6), - ; Scales wer 
16C9 2984 dsc$w_length(r7), a@dsc$a_pointer(r7) 
02 15 16C9 2985 BLEQ teg p 7 
64 D4 1908 389 pape CLRL (r43 : Failure. 
EC35 31 16CD 2988 9-P°* BRY =—sbranch_ret 
16D 444 setup_packed_numbers$: 
58 D4 16D 99 CLRL r8 ; Use as a adjustment scale 
59 D4 16D 99 CLRL r9 ; Use as a adjustment digits 
56 OO0000030'EF DO 16D4 299 MOVL argi_desc, r6 ; Get descriptors 


Dd pre mnor 
v04-000 
57 eeaneeedl 
6 


00001858'EF 1 


QOOO1BSS'EF 01 
58 08 A? 


58 


56 00000038'EF 


57 00000030'EF 


59 «658 8609 AG 

1F O59 

25 

59 00 04 86 66 58 
00000048’ EF 

00 Q0000048'EF 59 00 
04 86 59 

66 59 

09 A6 «(59 

08 A6 «58 

32 

58 

5A 67 

5A 

5A 00 0487 67 FF 8F 
00000048 'EF 

00 00000048'EF 5A 00 
04 87. 5A 

08 A7 

5A 

9B 

67 5A 

09 A? 5A 

58 

oF 


56 00000030°EF 


dbg$per form_operator 


I 16 
iF at at BY $3:62:18 roves Macro v04-00 


Pa 55 
56:47 CDEBUG.SRCIDBGPERMOP.MAR:1 9 


3) 


arg2_desc, r7 

r ; Strip leading/trailing 

#1, dbg$strip_zeroes 3 zeroes 

r7 3; Same again 

#1, dbg$strip_zeroes 

dsc$b_scale(r&) ,dsc$b_scale(r7),r8; oe if they are scaled 
; e same 


r8 7 

setup_packed_rsb$ 3; They are, simply return 

scale_arg2$ : Adiyst the second operand 
(first has larger scaling) 


r8, r8 
scale_arg1$ ; Adjust the first operand 


: (second has Larger scaling) 
arge_desc, r6 ; Use r6 to point to the 
; operand needs adjustment 
; (the one has smaller scaling) 
argi_desc, r7 3; 7 points to the cperand 
3; has larger scaling 


dsc$b_digits(r6), r8, r9 
r9, #24 


; Update the total number of 
; digits 
; Check to see if this causes 
; overflow 

truncate_the_other$ :; If we try to adjust the 

; smaller scale will cause 

3; overflow, so We truncate the 

3; other scale instead 
r8, dsc$w_length(r6), adsc$a_pointer(r6), - 


#2, °9, operand : 
#0, r9, operand, #0, r9, adsc$a_pointer(ré6) 


r9, dsc$w_length(ré) 
» dsc$b_digits(ré) 
r8, dsc$b_scale(ré6) 

setup_packed_rsb$ 


r8 ; Shift count 
ds5Su_longth(r?), r10 ; Get the length 


r : Length 
#-1, dsc$w_length(r7), adsc$a_pointer(r7), - 


#0, r10, operand , 
#0, 710, operand, #0, r10, adsc$a_pointer(r7) 


dseSb_scalo(e?) 
ri ; If we got done to zero 

: digit, then we are all done 
setup_packed_rsb$ 

r10, dsc$w_léngth(r7) 

r10, dsc$b_digits(r7) 


r 
scale_argi$ 


DO 16D 994 MOVL 
DD 16€ 995 PUSHL 
FB 16E 99 CALLS 
DD 16€B 299 PUSHL 
£8 16ED 44 CALL 
83 16F4 299 SUBB 
16FA 3000 
93 16FA 3001 TSTB 
13° 16FC B06 BEQL 
14 16FE 300 BGTR 
1700 3004 
BE 1790 B32 MNEGB 
11 170 06 BRB 
1705 3007 
1705 3008 scale_oracss 
DO 1705 3009 OVL 
170C 3010 
170C 3011 
DO 1706 og MOVL 
171 01 
1713 3014 ecate_orgts: 
81 1713 3015 DDB3 
1718 3016 
91 1718 3017 CMPB 
171B 3018 
14 1718 Bi? BGTR 
1710 ; 20 
171D 3021 
171D z056 
F8 171D 302 ASHP 
1724 
1729 3024 ¢ 
F8 1763 3025 ASHP 
17 ¢ 
BO 173 026 MOVW 
90 1738 3027 MOVB r9 
82 173C 3028 SUBB2 
11. 1740 3029 RB 
1s 030 truncate _the_other$: 
97 174 031 EC 
3C (1744 036 MOVZWL 
B7 1747 303 DECW 
F8 1749 3034 ASHP 
1751 
1756 3032 
F8 1728 056 ASHP 
97 1768 oy? DECB 
B5 176 038 TSTW 
1767 39 
13. 1767 40 BEQL 
BO 1769 41 MOVW 
90 1796 bes MOVB 
95 17 § Be TSTB 
12 177 44 BNEQ 
1774 Rez setup_packed_rsb$: 
DO 1774 46 MOVL 


argi_desc, ré6 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro V04-00 P 5 
v00-000 dbg$per form_operator raat mat : :56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 = 03) 
57 00000038'EF 0 MOVL arg2desc, r7 
0 RSB 


; PLI bit-string operations. 


177 47 
17 rt: 
17 4 
17 50 
17 051 
17 b2¢ ; 
1? 053 concat_tf_tf: 
0179 «30 =«1 b2 BSBw setup_pli_intrface$ 
51 54 00 1786 55 MOVL r4, rT 
QOOOOOOC*EF DF 1789 828 PUSHAL dgoed 
DD Veet 05 PUSHL r 
OOOOO008'EF DF 1791 828 PUSHAL dopel 
DD 1797 305 PUSHL fr 
00000000'GF 04 FB 1799 3060 CALLS #4, G*PLISCATBIT 
04 17A0 3061 RET 
17A1 O66 
17A1 3063 eql_tf_tf: 
0158 30 17A1 3064 8SB setup_pli_intrface$ 
64 01 DO 17A4 3065 OVL #1, (F4) 
QOOOOOOOC'EF ODF 17A7 3066 PUSHAL dope2 
5 DD 17AD 3067 USHL r3 
OOO00008'"EF DF 17AF 3068 PUSHAL dopel 
52 OD 1785 3069 PUSHL fr 
00000000'GF 04 FB 17B7 3070 CALLS #4, G*PLISCMPBIT 
50 v5 irae $053 TSTL r0 
02 13 17C a BEQL eql_tf$ 
64 D4 17C2 $05 CLRL (r4y 
17C&4 3074 eql_tf$: 
EB3E 31 17€4 3075 BRW branch_ret 
17C7 3076 
17C? 307 geq_tf_tf: 
0135 30 17C7 78 BSBW setup pli intr faces 
64 01 DO 17CA 3079 MOVL #1008 
CODOURC "Ft DF 17CD 3080 PUSHAL dope2 
3 ©6OD 1708 081 PUSHL r3 
O0000008*EF DF 17D 082 PUSHAL dopel 
52 DD 1708 3083 PUSHL fr 
00009000 ' GF 04 FB 1700 3084 CALLS #4, G*PLISCMPBIT 
50 D5 1784 3085 TSTL r0 
“8B 13 17E6 3086 BEQL geq_tfs 
FFFFFFFF 8F 50 Di 17€8 3087 CMPL rO, #*XFFFFFFFF 
02 12 I7€F bas BNEQ 9eq tfs 
64 D4 17F1 30 CLRL r4y 
Very 090 geq_tf$: 
EBOF 31 17F 091 BRW branch_ret 
17F6 bag 
17F6 3093 gtr_tf_tf: es 
0106 3u 17F6 3094 BSBW setup pli_intrteces 
64 01 DO 17F9 95 MOVL #1,(6% 
0000000C ‘EF DF HAA 38 PUSHAL dgpez 
DD 180 9 PUSHL fr 
O0000008"EF ODF 1804 3098 PUSHAL dopel 
52 DD 180A 3099 PUSHL fr 
00000000 GF 28 Fe 180 100 CALLS #4, G*PLISCMPBIT 
0 o5 181 101 TSTL r0 
13° 181 1 § BEQL not_arrs 
FFFFFFFF 8F D1 1817 1 CMPL rO, A°XFFFFFFFF 


beerennoe 
v04-000 


00D 
64 0 
eeeeeeod. 

eeencuedl 
00000000'GF 0 


50 
98 
FFFFFFFF 8F 0 
02 
64 


EAAF 


00A6 

64 01 

ipeeeee 

seed 
00000000 ' GF 


MmroowWos 


0 
5 
0 
FFFFFFFF 8F 3 
0 


64 
EA7E 


0075 

64 01 
eaaeenad \ 
00000008" 4 
QO0000000'GF 04 
50 


dbg$per form_operator 


13° (181 104 BEQL 
ee 105 BRB 
1 1 § not_gtr$: 
D4 1 1 CLRL 
1824 3108 gtr_tfs: 
31 1824 I BRW 
1827 3110 
i3 7 3111 leq_tf_tf: 
30 1827 116 BSBW 
DO 182A 311 MOVL 
DF 1 114 PUSHAL 
DD 1 115 PUSHL 
DF 1 By PUSHAL 
DD 1838 311 PUSHL 
FB 183D 3118 CALLS 
be 1844 3119 TSTL 
13 1846 3120 BEQL 
D1 1848 3121 CMPL 
13 eH 1 ¢ BEQL 
D4 1851 31 CLRL 
1324 Ise lLeq_tf$: 
31 185 4 5 BRW 
1856 3126 
1856 3127 lss_tf_tf: 
30 1856 Hi 8 BSBW 
DO 1859 3129 MOVL 
DF 185C 4 0 PUSHAL 
DD 1862 3131 PUSHL 
DF 1864 13 PUSHAL 
DD 186A 313 PUSHL 
FB 1966 134 CALLS 
D5 187 135 TSTL 
13° 1875 3136 BEQL 
D1 1877 13 CMPL 
12 187E 3138 BNEQ 
11 1880 3139 BRB 
1386 140 not_lss$: 
D4 188 141 CLRL 
+ F 196 lss_tf$: 
31 1884 314 BRW 
1887 3144 
1887 3145 neq_tf_tf: 
30 1887 3146 BSBW 
dO it 147 OVL 
DF 1 BY 148 PUSHAL 
DD 189 149 PUSHL 
DF 1895 3150 PUSHAL 
DD 1898 3151 PUSHL 
FB 1890 136 CALLS 
D5 18A4 315 TSTL 
12 1BA 154 BNEQ 
D4 =18A 155 CLRL 
18AA 136 neq_tf$: 
31 18AA 315 BRW 
18AD 138 , 
18AD 3159 bit_not_tf_tf: 
30 18AD 3160 BSBw 


not _gtr$ 
gtr_tfs 


(r4) 
branch ret 


setup_pli_intrface$ 
hats 4) 

dgped 

r 

dope 

r 

#4, G*PLISCMPBIT 

r0 


leq_tf$ 
rO, @*XFFFFFFFF 
(r4 


branch_ret 


setup_pli_intrface$ 
etre) 

dope2 

r3 

dopel 

r 

ae G*PLISCMPBIT 

r 
not_lss$ 

rO, #*XFFFFFFFF 
not_lss$ 
lss_tf$ 

(r4) 


branch_ret 


setu Li_intrface$ 
Hack 

dgpee 

r 

dopel 

r 

#4, G*PLISCMPBIT 
. tf$ 

ne 

(ray 

branch_ret 


setup_pli_intrface$ 


4 
4 


5 


245:1 
:56:4 


AX/VMS Macro v04-00 
DEBUG. SRC JDBGPERMOP .MAR; 1 


Page 57 
. (3) 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro V04-00 p 5 
yore 500 dbg$per form_operator 4 Ee 1984 : 256:4 DEBUG. SRCIDBGPERMOP.MAR; 1 ~~ ay 


51 54 00 188 161 MOVL r4, r1 
epenened DF 188 196 PUSHAL dopel 
§ DD 188 16 PUSHL 3 
00000000'GF 0 FB 188 164 CALLS #2, G*PLISNOTBIT 
04 18¢ 165 RET 
18C 196 
18C 167 bit_and_tf_tf: ; 
0039 30 18C 168 BSBw setup_pli_intrface$ 
4 00 13c8 169 MOVL 4, ¢ 
eepeaendl DF 18C 170 PUSHAL dgpee 
3 OD 18CF 171 PUSHL fr 
esanaeed 5 DF 1801 Ie PUSHAL dopel 
2 DD 1807 317 PUSHL fr 
00000000'GF 04 FB 1809 3174 CALLS #4, G*PLISANDBIT 
04 1860 3175 RET 
18E1 3176 
18€1 3177 bit_or_tf_tf: 
001B 30 13) 178 BSBw setup_pli_intrface$ 
51 54 00 18€4 3179 MOVL r4, rT 
OQOOOOOOC'EF ODF 18E7 3180 PUSHAL dope2 
53 DD 18ED 3181 PUSHL f3 
O0000008'EF ODF 18EF 136 PUSHAL dope' 
52 OD 18F5 318 PUSHL fr 
00000000'GF 04 FB 18F7 3184 CALLS #4, G*PLISORBIT 
04 18FE 3185 RET 
18FF 3186 
18FF 3187 : : : 
18FF 3188 ; This subroutine sets up the call interface required for the PL/I RTL 
18FF 3189 ; bit-string routines. Those routines require the following for both 
18FF 3190 ; operands: 
18FF 3191 ; 
18F F 138 3 A dope vector of the form: 
18FF 3193 ; 
18FF 194 : ¢eeeeeeeoen}ooescecocececsn + 
18FF 3195 ; i Length : PLI data type : 
18FF 196 ;: Se 
18FF 3197 ; 
18FF 138 : DSCSK_DTYPE_V maps into DBGS$K_PLI_ABIT, 
Ad ha : DSCSK_DTYPE_VU maps into DBGSR_PLT_UBIT. 
of a : Length is in bits. 
18FF g setup_pli_intrface$: ; 
52. QOO000030'EF DO 18FF 4 MOVL argi_desc, r2 ; r2 points left vms descriptor 
OOOOO00A'EF 62 BO 1906 5 MOVW  dsc$u_length(r2), dopel+2; get Length 
01 02 A2 91 1900 88 CMPB esc Sb_ type ire: #dsc$k_dtype_v 
0D 13 1911 320 BEGL © setup pl abit1$ ; 
0O000008"EF OC BO 1913 08 MOVW adbg K_plT_ubit, dopel ; map into pli data type 
52. 04 A2 «SOE SCOI91A 09 MOVAL 4(r2), r2 ; Get the address of the 2nd longword 
191E 10 : of the vms descriptor 
0B 11 «+191 11 BRB setup_pli_cont1$ 
19 \¢ setup_pli_abiti$: f 
00000008 ' EF of BO 19 1 mMOvW SdbgSk_pli_abit. dopel ; map into pli data type 
52 O4A d0 19 14 MOV 4(r2),7¢r ; Get the address of the left value 
192B 15 setup_pli_conti$: ; 
53 10 a DO 1928 1 MOVL right_arg(AP), r3 ; Get the address of the right arg 
5 D5 192F 1 TSTL r3 ; Test to see if it is present 


tila 
v04-000 


0B 
vcecnaae ; Val Of 


54 00000040°EF 
54 04 AG 


dbg$per form_operator 


a kk a a dd dd 
DOWOOODOOOOOOOOOOOOOOOOOOOODO 
SAA AAAAAAAA MINIMISE & EN 
MNOCVTWBWWVIVIOIWD SPO MD & S&rorymMVu— Pw-= 


QLLOCOOCOOMBBBOAVYN SS 
DOWWWOOCT DAL AMANO LY: 


>Proo 
Oo 


co 


a ee ae ee ee ee ee ee ed a ed aed ed dd 
wn 


© 
@ 
o 


MOvw 


MOVL 

MOVL 
setup_rsb$: 

RSB 


eql_rfa_rfa: 
CLRL 


UI ES REE BWW rnonnononononononond 


0 
4 
é 
8 
9 
0 
4 
i 
8 
9 
0 
1 CMPL 
¢ BNEQ 
CMPW 
4 BNEQ 
5 MOVL 
6 eql_rfas: 
f BRW 
9 neq_rfa_rfa: 
0 CLRL 
1 CMPL 
¢ BEQL 
5 CMPW 
54 BEQL 
55 MOVL 
2$ neq_rfa$: 
5 BRW 
35 
unar us_q: 
60? woud 
61 BRW 
83 i 
unary_minus_q: 
64 MCOAL 
65 MCOM 
96 ADDL 
6 ADWC 
63 BRW 
unary _plus_o: 
49 mova 
ts MOva 
7 BRW 
74 


BRB 
setup_pli_abit2$ 


MOVL 
setup_pli_result$: 


M 16 


i ot dt bs 9 $3 


64-SEP-19 
arage pli_result$ 
arg 
dsc 


4 


245:1 
256:4 


esc, r 
w_length(r3), dope2+2; 


AX/VMS Macro v04-00 
DEBUG. SRC JDBGPERMOP.MAR; 1 


There is no —— ar 
r3 points right vms 
get length 


Page 59 
aaliet : 


Seseripter 


each cb ype Cr 3og A#dsc$k_dtype_v 
a 


setu l 
#db Beco T_ubit, dope2 
4(r5), ¢ 
setup_pli_result$ 
#dbg$k_pli_abit, dope2 
reba sk ps ra . 


result_desc, r4 
4(r4), 74 


(r4) 
(r2),(r3) 
4b rfa$ 

4 2) ,66r3) 
eql_rfa 
Htra) 
branch_ret 


(r4) 
(r2),(r3) 
neq_rfa$ 
4(r2) ,4(r3) 
neq_rfa$ 
#1,%r4) 


branch_ret 


(r2),(r4) 
branch_ret 


(r2),(r4) 

4( 4(r4) 

4) 

r4) 
ranch_ret 


) 
25 
#i(r 
#0,4¢ 
Cc 


4 
bran 


, 
a 
(r2),(r4) 


B(r2) ,B(r4) 
branch_ret 


; map into pli data type 
; Get the address of the 2nd lLongword 


of the vms descriptor 
map into pli data type 
Get the address of the right value 


r4 points to result vms descriptor 
r4 points to the address of the result 


; Record File Address data type, 6 bytes long. 


vOe-600 


ek 


oo >PrpYr 
Ser nee 


00000044 ‘EF 
00000034 "EF 
OOO00000"EF 02 


00000044 'EF 


00000036" EF 
000° 02 


dbg$per form_operator 


1986 


ee a cee ee ce ee ed ee ce ce ee ee a ee ca ce a ce cal a a ce ee cee a ea a a a cae el a a ee el ed ed 
PAA AIAIIPININIDY 2 2 2 | [DOO COCOCOCOO MN HMMMMMMOOOVIMAON 


—& LM OOO VO P LMMMOKOP KF PF ONMO AOA UIM CONN NINN BW HSMMMNOKOY KP Pb NW "DWoOwmn oo 


NAA WOT 


75 unary_minus_o: 
yen MCORL 


pred_enum: 
PUSHL 
PUSHL 
CALLS 
RET 


; The following 


PUSHL 
PUSHL 
CALLS 
RET 


SRL 
PUSHL 
CALLS 
RET 


abs_ fixed: 
PUS 


PUSHL 
CALLS 
RET 


AIAIAIAIAI WINNING rnorornonononornononononononororororororororeonen) 
PIMIMIPUINININD 2 9 9 | “DOOD OOOOCOCO OOOO O OOOO OWWWWWWOWW0 YN 
AEWA © ODNAUE WN O ODNA UE WW 0 OO NOU EWN OOONO 


—OOONO UE WN-O OOn 


AAAA AANA 
Ww 
Wurorons 


unary sai eee” 


unary_minus_ fixed: 
PuSA 


add_fixed_ fixed: 
POSHL 


8 
i a: DS 63:42:18 oes Macro v04-00 Page 60 
4-SEP-1984 256:4 DEBUG. SRC JDBGPERMOP .MAR; 1 (3) 
(r2),(r4) 
(rg 46rd) 
8(r2),8(r4) 
12(¢r25,12(r4) 
#1, (745 
#0,4(r4) 
#0,8(r4) 
#0,12(r4) 
branch _ret 
3788001 
result_valdesc ;68001 
aral valdesc 388001 
, dbg$succ_enum S's b 
37BB001 
result_valdesc ;8B001 


are’ valdesc ;BB001 
, dbg$pred_enum ; 


handle operations on fixed binary. 


result_valdesc 
argl_valdesc 
#2, Sbetunery.. plus_fixed 


result_valdesc 
arg! valdesc 
, dbg$unary_minus_ fixed 


result s{atdese 
argi_valdes 
#2, dbgSabs_ fixed 


result_valdesc 

arge_ val desc 
argi_valdes 

#3, dbgSadd_ fixed_fixed 


“result _valdesc 


arge_valdesc 
argi_valdesc 
#3, abg$sub_ fixed_fixed 


- 61 
RMOP 15-SEP-1984 23:45:1 AX/VMS Macro V04-00 _, Page 38 
-SEP- 756: G.SRCJDBGPERMOP.MAR; 1 
yoeeb00 dbg$per form_operator 4-SEP 1984 33 56 3 DEBU | 
1A7 
i fixed: 
O044'EF ODD 1a7 wbeetiats result_valdesc 
8 ‘EF DD 1A7 5 PUSHL argé_valdesc 
00000086 EF DD 1A7E $ PUSHL argl a PP 4 Hues 
OOO00000"EF 03 ae ne 4 CALLS #3, dbg$mul_fixed_ 
1A8C o 
1A8C 40 div_fixed fixed: 

. : t_valdesc 
DOODOOSC'EF DD IASE $342 Pysnt cree Salaece 
Soop nss “EE 1A9 rk PUSHL argi_valdesc | . 
poorer 6: PB 37 CALLS #3, dbg$div_fixed_fixed 

00° EF 3COFB ne ° = 
Of Ane 3308 
1AA6 43347 eql_fixed fixed: 

. et Lt_valdesc 
ggggggeesee OB TAME Seep” Pusat ces ates 
Sos0036" EF DD 1AB2 3350 PUSHL ere' aldose. Steed 

OOOO0000'EF 03 ee 33¢ * #3, dbg$eql_ * 
1ACO $32 ; : 
1ACO 3354 neq_fixed fixed: 

. ‘ Lt_valdesc 
BOO00DSC'EF DD Jace 3356 pure: cenit Ssygide 
00090036" EF DD 1ACC 93357 PUSHL ore! veleese | Pensa 

OO0O00000'EF 03 FB 1AD2 $328 a #3, dbg$neq_ 4a 
ame ria 
1ADA 3361 Lss_fixed_fixed: 
4'EF DD ADA 336 4 POSHL result_valdesc 
8 ‘EF DD 1AE0 3368 PUSHL argée_valdesc 
00 oes Et DD 1AE6 3364 PUSHL orel ves geet steal 
OOO00000"EF C3 fe int 3366 cas , dbg 3 ® 
7 
tare 368 et iden age OO valdesc 
§000003¢" EF DD IAEA $363 PUSHL arge_valdesc 
00090036" EF DD 1800 3371 PUSHL ee | Ne 
O0000000'EF 03 FB 1806 3455 CALS #3, dbg$gtr_ h 
ee 
1B0E 75 leq_fixed fixed: 

. ns Lt_valdesc 
Bo0000SC'EF BD 1805 fe pusnt grab talaces 
00000036" EF DD 1B1A 3378 PUSHL orl veldesc | Sli 

00000000 ‘ EF re 1830 a4 CALLS #3, dbg$leq_ i 
1B2 381 : 
i fixed: 
$008 4*EF ODD 1B : 388 eae eT result_valdesc 
Bosc D 1B2E 84 PUSHL arg2_valdesc 
b0090036 "EF DD 1B34 38 PUSHL aro! veldese rie 
O0000000'EF 03 FB 183A 3386 CALS #3, dbg$geq_ * 
04 1841 44 
1B42 88 


vos-600 


Soosoeee's? 


00028362 8F 
00009000'GF 03 


i ots Haat hs 9 93:43") AX/VMS Macro v0é-00 
dbg$per form_operator 46-SEP-1984 235:56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 
1B4 89 ; No corresponding routine index to perform the given operation, signal 
18 ay 3; debug internal coding error. 
1B4 92 unknown_rout_index: 
DF 184 9 PUSHAL errmsg 
DD 184 4 PUSHL #1 : 
DD 1B4A 95 PUSHL agbas interr 
FB 1850 3396 CALLS #3,G*CIBSSIGNAL 
04 1857 3397 RET 


rom 8, 


— 


04-00 Page 63 DE 


a 
- - 745: AX/VMS Macro V04 
vitae al "ergeP 1984 33:93:15 toEBUG SRe DBGPERMOP .MAR; 1 (4) v( 


dbgo$strip_zeroes 46-SEP-1984 


1838 444 -SBTTL dbg$strip_zeroes 
Bee 401 ;+¢ é mt nests 
1623 106 :GLOBAL ROUTINE dbg$strip_zeroes (VMS_ = an 
1638 208 : Leet routine strips leading and trailing zeroes from a packed OC 
1838 £06 3 decimal string. 
B : 
. T a 
1858 409 ; ae SVMS_DESC - A pointer to a VMS descriptor. 
411 ; OUTPUTS 
1638 tig : VMS_DESC is returned. 
1B3B 3414 
ieee rt ; Register usage: o 
B ; : 
; fl temporaries : 
1838 118 : + : pointer to VMS descriptor oC 
1858 3419 ; r7? number of decimal digits 
1858 3420 ; r8 pointer to digit string 
1858 $053 ; r9 index 
1 4 ; 
O3FC 1886 $057 -ENTRY dbg$strip_zeroes, “M<R2,R3,R4,R5,R6,R7,R8,R9> 
; Local storage space 
EO AC OOO 1830 $438 move L(AP) RG ; Address of descriptor. 
76 5% 8 OB , 3427 CVTWL © dsc$w_length(R6) ,R7 ; Number of decimal digits 
58 ar 3 00 Bee 3428 MOVL dsc$a pointer (RG) .RB : eeerees FS, ee 
6— 68 57 34 1868 HA 1$: ~P4 R7, (RB), (SP) ; copy (oF ak ier uate 
ar OR tbe 134 2s: ASHL #-1,R7,R9 ; Get offset to sign byte 
ae © 13 B78 3c : BEQL he ; Leave at least one digit 
af 98 187 33 BITB #*XxF0, (SP)CR9J ; Test 80 nibble of sign byte 
mead ceinih GR | et 3034 BNEQ : : Branch if no trailing zeros 
so Do ese 88s MOVL R7,R0 ; Get original number of digits 
ae 3236 DECL R7- ; Count Length down by one 
a (8S 6B 3235 INCB dsc$b_scale(R6) ; Remember scaling has changed 
rer fe 1B 438 ASHP #-1,R0, (SP) ,#0,R7, (R8) ; Scale number by one digit 
ee ee ee oe : 39 BRB Sirs ; Go repeat test for zeros 
Ot Cl BBE 3G $: ADDL3 #1,R9,R0 ; Get number of bytes written 
e880 Se BOD Seay SKPC #0.RO, (SP) ; Find first non-zero byte 
sf 0 Soe bos Bec DECL "ee ; Get <# of bytes> minus 1 
34 o 1698 128 ASHL #1,R0,R7 ; Convert bytes to nibbles 
oer ro BF 3 ieee Bec BITB = #*KF0. (R1) : Check high nibble of byte 
or FO eS Bao Bees BEQL ee : Ignore high nibble if zero 
96 be 1pAs te INCL R? : Otherwise increase length 
68 61 2F Re Bat 447 4$: MOVP R7,(R1), (RB) : Copy over trailing digits 
8) DO IBAR e489 Oy ; ial handling if result 
Tog ke Ok BAD 8480 CURE ascto scale(R6) ; ie aad - scale factor is 
06 fe BO (1Bep 229 MOVL #*xX0C7 (RB) ; _zero and sign is positive 
ee 59 FD 1883 452 68: CVTLW RT, dsc$w_Length(R6) ; Set songs® ie descriptor 
09 3 2f rb 1BBe 13 CVTLB R7.dsc$b_digits(Ré) : Insure digit count is set up 
0 1BBA 3454 MOVL R6,R : ? = 
me ry 1BBD 3455 RET ; ALL normalized - return 


15-SEP-1984 23:45:18 VAX/VMS Macro V06- : ‘ 
38e $3; aS ScheRmos ae 


trap_msg_handler 4-SEP=1 56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 
1BBE 3457 -SBTTL trap_msg_handler 
1BBE 3458 ;++ 
10es 123 sROUTINE TRAP_MSG_HANDLER(SIGARG, MECHARG, ENBLARG): NOVALUE = 
1BBE 3461 ; FUNCTION. 
1BBE rh 3 This is the handler routine for DBGSPERFORM_OPERATOR routine. It traps 
1BBE 3463 ; overflow (V), decimal overflow (DV), floating underflow (FU), and 
1BBE 3464 ; ave an informational message to the user program. It also traps 
Hh r+ 5 he error condition such as divided by zero, or illegal operand type. 
1BBE 3467 ; INPUTS 
1086 rh ; SIGARG = The signal argument vector. 
1605 rth s MECHARG = The mechanism argument vector. 
1BBE tis : ENBLARG = The enable argument vector. 
1BBE 3473 ; 
1BBE 3474 ; OUTPUTS 
1BBE 3475 ; None. 
1BBE 3476 ;++ 
1BBE 3477 
1BBE 3478 
1BBE 3479 ; Register usage 
1BBE 3480 ; ‘ 
1BBE $ 13 7 Pointer to operator token entry 
1BBE 186 3 r Temporary 
1BBE 348 
000C 160r seee ENTRY trap_msg_handler,*M<r2,r3> 
50 04 AC 00 18C0 3tB3 MOVL chf$l_sigarglst(AP),r0 ; Pointer to Signal Arguments 
51 08 AC DO 1BC4& 3487 MOVL chf$l_mcharglst(AP),r1 ; Pointer to Mechanism Arguments 
52 Q0000000°EF DO 1BC8 3488 MOVL save_Operator_entry,r2 ; Get the pointer to operator token 
1BCF 3489 ; _ entry from saved area ‘ 
52 OC A2 DE 1eCe soy MOVAL token_name(r2),r2 ; Pointer to counted ascii string 
00000468C 8F 04 AO D1 1BD3 3492 1$: CMPL chf$l_sig_name(r0) ,#ss$_fltovf 
11 12 18DB 349 BNEQ 2$ 
52 DD 1BDD 3494 PUSHL fr2 
01 DD IBDF 3495 PUSHL #1 
O0028A02 BF DD 1BE1 3496 PUSHL agbas fltovf 
00000000'GF 03 FB 18E7 rp CALLS #3,G*CIBSSIGNAL 
00000469C 8F 04 AD D1 IBEE 3499 2%: CMPL chf$l_sig_name(r0) ,#ss$_fltund 
FoR ioe 380 BNEQ 3$ 
53 00000004°EF D0 16F 501 MOVL Sexe _result.r3 
63 D4 IBFF 208 CLRL (r3) 
52 OD 1€01 350 PUSHL fr2 
01 DD 1€03 3504 PUSHL #1 ; 
00028698 8F D 1€05 3505 PUSHL #dbg$_ifltund 
01D0 1 ice 206 BRw give_info 
000286A3 8F 04 AO D1 COE 3508 3S: CMPL chf$l_sig_name(r0) ,@dbg$_iintovt 
Ob 12 1€16 3509 BNEQ 4$ 
52 DD 1€18 3510 PUSHL 2 
4 DD 1C1A 3511 PUSHL #1 ~ 
000286A3 8F D 1C1C 216 PUSHL #dbg$_iintovf 
0189 1 1¢€22 351 BRw give_info 


4 


MMODOwDwOwoaoy>>> > YP YP rrr rYrrrrYrrrYrrrrrr?r?r>r>,r?r?r?r?r?r?r?r?r?r?r?r?rrrrrrrrrrr vd 


DBGPERMOP 15-SEP-1984 23:45:1 AX/VMS Macro v04-00 Page 65 
v04-000 trap_msg_handler raat Ti 333633] DEBUG. SRC JDBGPERMOP .MAR; 1 . (5) 
1¢ 514 
00028240 BF 04 A0 D1 IC 3 515 4$: CMPL gnfSl_sig.nane(r0) ,MdbgS_divbyzero 
D 12 1€2D 218 BNEQ $ 
00028240 BF DD iICeF 351 PUSHL #dbg$_divbyzero 
00000000 ' GF 1 FB ‘6 ; 218 CALLS #1,G*CIBSSIGNAL 
OOO28ECO BF 04 AD D1 1C35C 3520 5$: CMPL chf$l_sig_name(r0) ,#dbg$_sfcntneg 
D 12 #1044 3521 BNEQ 6$ 
OOO28ECO BF DD 1046 35 ¢ PUSHL #dbg$ sfentneg 
00000000'GF 01 FB 1e83 : ? CALLS #1,G*CIBSSIGNAL 
OO0O00GA4 BF 04 AD D1 1C5 525 6$: CMPL GhfSl_sig_nene(r0) Ass$_decovt 
11 12 1C5B 3526 BNEQ $ 
52 DD 1C€50 3527 PUSHL fr2 
01 OD ICSF 3528 PUSHL #1 
OOO28A3A BF DD 161 267 PUSHL Pr decovf 
00000000'GF 03 FB +5 4 239 CALLS #3,G*CIBSSIGNAL 
OO0004BC BF 04 AD 01 IC6E 236 7$: CMPL chf$l_sig_name(r0) ,#ss$_fltdiv_f 
D 12 1¢€76 353 BNEQ 8$ 
00028240 BF DD 1C78 3534 PUSHL a s: divbyzero 
00000500'GF 01 FB acre 232 CALLS #1,G*CIBSSIGNAL 
00000484 8F 04 AD D1 1C€85 3537 8$: CMPL chf$l_sig_name(r0) ,#@ss$_fltovf_f 
11 12 1C8D 3538 BNEQ 9$ 
52. DD 1CB8F 3539 PUSHL 2 
01 OD 1¢91 540 PUSHL #1 
O0028A02 BF DD 1C93 $20) PUSHL agbas fltovf 
00000000'GF 03 FB +34 4 3268 CALLS #3,G*CIBSSIGNAL 
000004C4 BF 04 AO D1 ICAO 3544 9S: CMPL chf$l_sig_name(r0) ,#ss$_fltund_f 
16 12 1CAB 3545 BNEQ 10$ 
53 Q00000046"EF DO ICAA 3546 MOVL save_result,r3 
63 D4 1(B1 547 CLRL (r3) 
52 DD 1CB3 3548 PUSHL fr2 
01 DD 1€B5 3549 PUSHL #1 
00028698 8F DD 1CB7 3550 PUSHL #dbg$_ifltund 
O11E§83— 531 i a3! BRW give_info 
00000484 8F 04 AD ODI +33 228 10$: CMPL chf$l_sig_name(r0) ,#ss$_intdiv 
12 1C€C 554 BNEQ 11$ i 
00028240 8F DD I1CCA 3555 PUSHL #dbg$ tiveyzere 
00000000'GF 01 FB 1608 228 CALLS #1,G*CIBSSIGNAL 
1CD 55 
1¢p7 3558 118: 
00000494 8F 04 A0 D1 1CD7 3559 CMPL chf$l_sig_name(r0) ,@ss$_fltdiv 
OD 12 CDF 3560 BNEQ 128 ~~ 
00028240 8F DD 1CE1 3561 PUSHL #dbg$ tixeyzere 
00000000'GF 01 FB 1CE7 26¢ CALLS #1,G*CIBSSIGNAL 
1CEE 356 
1CEE 3564 128: : 
001682(4 8F 04 AO D1 ICEE 3565 CMPL chf$l_sig_name(r0) ,@mth$_floovemat 
Bae ire 266 BNEQ 13$ 
52 DOD ICF 56 PUSHL fre 
1 DD I1CFA 3568 PUSHL 1 
OO2B8A02 BF DD ICFC 237 PUSHL ages fltovf 
00000000 * GF 3 FB 1002 3570 CALLS #5,G*CIBSSIGNAL 


ovvvcVvVv°c°°°°°°o°o9 


oesare 


QO1682CC BF 04 a0 
53 00000004'EF 
53 
> 
01 
cme ons 


00168294 8F 04 AD 
OD 

52 

01 

OO0028ED8 BF 

009E 


00000454 BF 04 


00028A 
00000000 ° GF 


000286AB 8F 04 AD 
OD 

52 

01 

000286AB 8F 

006C 


0000045¢ BF 04 a0 
52 

01 

Q0028EE0 BF 
00000000'GF 03 


0000047C 8F 04 

O00028A5A 
00000000 ' GF 

OOO2BEFO BF 04 rv 


00028EF 0 af 


trap_msg_handler 
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AAAS 
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ee ee a a ed ad ed 
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NOUS WN @OOONOAUE WIN ODO 


PAAAAAAAAAAAAAA AA ASOD 


RoRonononononony) "OO 


13$: 


14$: 


15$: 


16$: 


18$: 


19$: 


"RrSEP=19be 93:56:47 


GoI>t ote _nanet ro) Sethe Sloundast 
seye.result.r5 

(r3) 

r2 

#1 

#dbg$_ifltund 

give_info 


FIP. ste_nane CeO) AnehS_sndenp 
re 
fdbos undexpn 
give_info 

FoTi_stg_nanetrO) Aes8_reprand 
ii 

dbg$_roprandf 
#3°G*L1B$$1GNAL 
Coit _otg_nene(r®) Medes, tstrtry 
r¢ 
fdbgs istrtru 
give_info 
cb iSl_sig_nane(rO) #9s8_epcdec 
i 

A $_opcdec 

*CIBSSIGNAL 


chf$l_sig_name(r0) ,#ss$_intovf 
7 


; bg$_i 

ie e *CiBss TONAL 

ch 7st _oig_nenotr®) Ades cvtnogune 
r2 

A 

#dbg$_cvtneguns 


AX/VMS Macro V04-00 
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vos-000 


QO028EDS BF 


OO1F 


04 AO 
D 
é 


01 
OO028ED8 BF 


0008 


50 00000918 8F 


00000000 ° GF 


03 
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trap_msg_handler 2rSEp=198e 33:43:19 {DEBUG sRe DBGPERMOP.MAR; 1 : (5) 
31 1DBC 36 3 BRW give_info 

1DBF 36 
D1 1 DBE 3 ; ony CMPL hf$l_si (r0) ,#dbg$_und 

c sig_name(r0), undexpn 
12 10C? 36 ¢ BNEQ unknoun..stonat rs “ 
DD 1009 36 PUSHL fr2 
DD IDCB 3634 PUSHL #1 
Be +43 635 PUSHL #dbg$_undexpn 
1 1DD 636 BRw give_info 

1DD6 eH 

1DD6 3638 unhamn, 5 gnats 
DO 10D6 3639 MOVL #ss$_resignal,r0 
04 I1DDD 3640 RET 

IDDE 3641 | 

1DDE ong give_info: 
FB H+ 64 CALLS #3,G*LIBSSIGNAL 

IDES 3644 SUNWIND_S 
04 DFO 3645 RET 

1DF1 3646 


RRREREREBBBBBBBBBBBBBO CCC CC CC CC rrr errerererereereererereeree eee vo 
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10F} ao -SBTTL dbg$cvt_trfa_to_value 
Ha $20 : GLOBAL ROUTINE DBGSCVT_TRFA_TO_VALUE(DST_ARG, SRC_ARG, TOKENCODE): = 
1DF1 $36 3; FUNCTION 
1DF1 3655; This routine accumulates the value in DST_ARG from SRC_ARG 
ert o2¢ ; depending on given radix. 
1DF1 656 ; This routine is called from the caller one byte at a time, ie., 
1DF1 3657 ; RFA value initialized to zero. 
1DF1 3658 ; DO i FROM 1 to number of characters 
10e 633 $ RFA value = RFA value * radix + converted character value(i) 
1DF1 661 ; INPUTS 
ior 666 ; DST_ARG = The address of the destination value (6 bytes). 
\ort O88 ; SRC_ARG = The address of the source value (6 bytes). 
1DF 1 666 ; ee. Token code can be one of TOKENSK_INTEGER, 
1DF1 3667 ; TOKENSK_HEX_ INTEGER, TOKENSK_BIN_INTEGER, 
1DF1 3668 ; TOKENSK_OCT_ INTEGER 
1DF1 3669 ; 
1DF1 3670 ; OUTPUTS 
1DF1 3671 ; The result of the conversion is left in the destination value 
1DF 1 ere ; address. Overflow status is returned. 
1DF1 3673 ;+¢ 
1DF 1 sere 
1DF 1 675 ; Parameter Offsets 
1DF1 3676 ; 
00000004 1DF1 3677 ot arg = 4 
00000008 1DF1 3678 arg = 
0000000C 1DF1 3679 tenkncede = 12 
1DF1 3680 
1DF1 3681 ; Register usuage 
1DF1 ons ; Address of the dst_arg 
1DF1 683; Address of the src 53"9 
1DF 1 684 ; r4,r5  quadword tempory result 
1DF1 3685 ; r6.r7 Quadword tempory result 
1DF1 3686 ; 
1DF1 3687 
OOFC 1DF1 3688 .ENTRY Sogecuttr trfa_to value “M<r2,r3.°4,75,r6,r7> 
04 AC DO 1DF3 3689 t_argtAaP re ; destination address of 6 bytes 
08 AC DO I1DF7 3690 MOVL Stevan ar (AP). ; source address of 6 bytes 
6¢ 0 1DFB 3691 MOVL ; move the destination value 
04 A C HY 69 MOVZWL iceds 15 : into quadword (in r4,r5) 
OC AC D1 1€0 694 CMPL tokencode(AP) ,#token$k_integer 
7 on 1E08 695 BEQL shift_decimal 
OC AC D1 1€0 69 CMPL tokencode CAP) . #token$k_hex_integer 
20 13 #1€0C 369 BEQL shift _hexdec ima l 
OC AC O1 1696 698 CMPL tokenfode (AP) ,#token$k_bin_integer 
21 13° «1€1 699 BEQL shift_binar rye 
Oc AC D1 1€14 3700 CMPL tokenfode(AP) ,#token$k_oct_integer 
22 13 #1€18 3701 BEQL shift_octal$ 
0044 31 4 , ¢ BRWw report_error$ 
1E1D 3704 shift_decimal$: : Multiply the value by 10 
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DBGPERMOP 15-SEP-19 :45:1 AX/VMS Macro v04-00 Page 69 0 
mirakitys dbg$cvt_trfa_to_value 4-SEP- matt $3: 756 18 toeauG: SRC JDBGPERMOP .MAR; 1 . (6) s 
6 4 1 79 1610 705 ASHQ #1,7°4,°6 3 multiply r4 b $ 
ef 24 3. 79 1€21 706 ASHQ #3,74,r4 ; aul tiply r4 4 A S 
ee § CO 1€25 370 ADDL2 r6,r4 : _ add result Pe * 10) $ 

5 D8 1&28 3708 we r7,r5 ; Cannot be a overflow of 8 $ 

1E2B 3709 3: bytes, it'll overflow 6 $ 

1E2B 3710 i; —sCcbytes. $ 

0015 31 H 3 ; a BRW set_result$ : 

1E2E 3713 shift ~hexdec imal$: ; Multiply the value by 16 S 

54 54 (06 79:«TESE 371% ASHO  #4,r4,r4 ie , g 
COOE 31 716 BRW set _result$ ; 

1E 717 shift_binary$: ; Multiply the value by 2 s 

54 Su 17918358718 aie" aaa eee = ' § 
0007 31 1€39 3719 BRwW set_ result$ S 

1E3C 739 s 

lest 721 shift _octal$: ; Multiply the value by 8 $ 

a 2 CC TF wx 7 ¢ ASHQ #3,r6,r6 s 
0000 «(31 1Ece 7 BRW set_result$ s 

1&4 724 S 

1Eee 725 set_result$: ; S 

54 DO 1&4 726 MOVL r4,(r2) ; Move it into destination s 

04 A2 55 BO 1646 3727 MOVW r5,4(r2) : RFA) § 
55 OOOOFFFF 8F CA 1E4A 3728 BICL @*XFFFF cS 3; Test the high 2 bytes for s 
24 12 =«1€51 4 BNEQ rfa_overf lows s overflow s 

62. 63 +=AO 1653 3730 ADDW (r 35, (r2) ; Add the character value | § 

02 A2 02 A353 D8 1€56 3731 ADWC 2735 ,2¢r2) : into RFA (6 bytes addition) s 
1A 1F 1658 3732 BCS rfa_overflow$ 3 Check for overflow S 

50 061 DO 1€5D 3733 MOVL #1,r0 s 

04 1€60 734 ET $ 

1661 3735 S 

1661 3736 report_errors: S 

OOOOOOS5*EF DF 1661 3737 PUSHAL errmsg! $ 
1 DD 1€67 738 PUSHL #1 S 

00028362 8F DD 1669 3739 PUSHL a $_in s 
00000000 ' GF 03 FB 1E6F 740 CALLS “CIBS IGNAL § 
04 1€76 741 RET § 

1€77 me S 

1677 3743 rfa_overflow$: S 

50 D4 1€77 arte CLRL r0 $ 

04 1€79 745 $ 

1E7A 3746 ; 

s 

s 

s 

s 

§ 

§ 

§ 

§ 

§ 

§ 

§ 

§ 

$ 

§ 


DBGPERMOP 
v04-000 


Ft Sb 4 745:1 AX/VMS Macro V04-00 Page 70 
dbg$cvt_tquadword_to_value 4-SEP=1984 1 333 756: 43 UoeeuG sre DBGPERMOP .MAR; 1 . (7) 
era 48 -SBTTL dbg$cvt_tquadword_to_value 
iErA £20 : ‘GLOBAL ROUTINE DBGSCVT_TQUADWORD_TO_VALUE(DST_ARG, SRC_ARG, TOKENCODE): = 
1E7A P36 ; FUNCTION 
1E7A 3753; This routine + eager + al the value in DST_ARG from SRC_ARG 
1ErA Pee ; depending on given radix 
1E7A £28 3 This routine is called from the caller one byte at a time, ie., 
1E7A 3757 ; QUADWORD value initialized to = 0. 
1E7A 3758; DO i FROM 1 to number of characters 
34, 128 : QUADWORD value = QUADWORD ee * radix + converted character vaiue(i) 
1E7A 3761 ; NOTE: This routine assuming the otyee is Q, not QU, if dtype is QU, 
1EZA 16¢ ; then DBGSCVT_TUQUADWORD_TO_VALUE should be called instead. 
1E7A 764 ; INPUTS 
Era 103 § DST_ARG = The address of the destination value (8 bytes). 
iErA yor 3 SRC_ARG = The address of the source value (8 bytes). 
1E7A 3769 ; vemosane Token code can be one of TOKENSK_INTEGER, 
1E7A 3770; OKENSK_HEX_ INTEGER, TOKENSK_BIN_INTEGER, 
1E7A 771 =; TORENSE™ “OCcT~ INTEGER 
1E7A oe : 
1E7A 3773 ; OUTPUTS 
1E7A 3774 ; The result of the conversion is left in the destination value 
1E7A 3775 ; address. Overflow status is returned. 
1E7A 3776 344 
1E7A 3777 
1E7A 3778 ; Parameter Offsets 
1E7A 3779; 
00000004 1E7A 3780 +4: -2rg = 4 
00000008 1E7A 3781 src_arg = 8 
O000000C 1E7A ree tebinchds = 12 
1E7A 378 
1E7A 3784 ; Register usuage 
1E7A 3785 ; Address of the dst_arg 
1E7A 3786; A Address of the src 32°9 
1E7A 3787 ; r4,r5  quadword tempory result 
1E7A 3788 ; r6, cr? Qquadword tempory result 
1E7A 3789 ; 
1E7A 3790 
OOFC 1E7A 3791 . ENTRY soateut., tquadword to_value,*M<r2,r3,°4,r5,r6,r7> 
04 AC DO 1€E7C 6 “dst_arg(AP),f re : destination address of 8 bytes 
08 AC 0 1€80 379 MOVL sre gar g(AP) cr 3; source address of 8 bytes 
54 62 D 1684 3794 MOvVa ; move the destination value 
i 4 ag ; into quadword (in r4,r5) 
OC AC D1 1€87 379 CMPL tokencode(AP) ,#token$k_integer 
15 13 1688 3798 BEQL shift_decimal{$ 
OC AC D1 1€8D 3799 CMPL tokentode(AP) ,#token$k_hex_integer 
26 «6©13”~=«CO1E91 00 BEQL shift ~hexdec ima L1$ 
OC AC D1 1E33 01 CMPL tokencoge (AP) #token$k_bin_integer 
29. 13° «+1€9 ¢ BEQL shift_bina ib 
OC AC D1 1€99 CMPL tokentode(A . #token$k_oct_integer 
2c 06.13)«1E9D «63804 BEQL shift_octall$ 
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mavens dbg$cvt_tquadword_to_value 273E b= 1382 $3: :56:4 DEBUG. SRC JDBGPERMOP .MAR; 1 . (7) 


0043 = 31 34! 83 BRwW report_error1$ 
IFAS 09 shifi_decimal1$: 3; Multiply he value by 10 
560 54 9) 79 «#1EA 08 ASHQ #1,74,°6 ; multiply r4 by 2 
; 1D 1EA8 09 BVS gyed overflow$ 
54 54 0 79 =#1EA 10 ASHQ oes, ; multiply r4 by 8 
4D 1D 1EAC 11 BvS quad_overflow$ 
ce Porc suds 
45 1D 1EB4 14 BVS quad. over ‘lLow$S + Branch on signed overflow set 
0016 =31 1588 1? BRW set_result1$ 
1EB9 i$ shift anesdes ant Ty ; Multiply the value by 16 
54 54 oe 79 1EB9 3818 ASHQ #4,74,°4 
C€ 1D 1EBD Hh BVS quad_ over flow$ 
0012 = 31 ipo ; 9 BRW set_result1$ 
Eg 8 ¢ ttrtaie «2? Yi ; Multiply the value by 2 
54 554 91 79 1€C 8 ASH #io°4,r4 
3 1D 1€C6 3824 BvS quad_ over flow$ 
0009 =‘ 331 Hat HH BRW set_result1$ 
1ECB 359 shift_octal1$: ; Multiply the value by 8 
546 54 03 79 1ECB 3828 ASHQ #3,74,74 
2A 3861D~ «COVECCF HH BVS quad_ over flow$ 
0000 =‘ 31 344 ti BRW set_result1$ 
1ED4 o3¢ set_result1$: Zaye 
62 54 7D 1508 th mova r4,(r2) : Hove aides sate destination 
2 63 CcO ED? 3835 ADDL2 (r3),(r2) : Add the character va 
04 A2 r 04 AS DB EDA 3836 ADWC 4735 ,4(r2) : _ into QUADWORD (8 meet addition) 
1A 1D EDF 3837 BVS uad_overflow$ ; Check for overflow 
50 01 DO 1€E1 3838 MOVL 1,r0 
el ie 
1EE5 3841 report_error1$: 
00000067"EF ODF 1EE5 a6 PUSHA errmsg? 
DD 1EEB Sf PUSHL #1 
00028362 8F OD iEER 44 PUSHL #37 8er] 
00000000'GF 03 re ers nee CALLS “cbs 1GNAL 
1EFB $848 quad_overf lous 
uad_ov wS: 
50 pe TEER Sac Uat-ouer fous: 
04 1EFD 3850 
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io -SBTTL dbg$cvt_tuquadword_to_value 
:GLOBAL ROUTINE DBGSCVT_TUQUADWORD_TO_VALUE(DST_ARG, SRC_ARG, TOKENCODE): = 


FUNCTION 
This routine accumulates the value in DST_ARG from SRC_ARG 
depending on given radix. 


This routine is called from the caller one byte at a time, ie., 
QUADWORD value initialized to zero. 
DO i FR to number of characters 
QUADWORD value = QUADWORD value * radix + converted character value(i) 


NOTE: This routine soouaine the dtype is QU, not Q, if dtype is Q, 
then DBGSCVT_TQUADWORD_TO_VALUE should be called instead. 


INPUTS 
DST_ARG = The address of the destination value (8 bytes). 


SRC_ARG = The address of the source value (8 bytes). 
EE ae code can be one of TOKENSK INTEGER, 


ENSK_HEX_INTEGER, TOKENSK_BIN_INTEGER, 
TOKENSK_OCT_INTEGER. 


WAN 


© Cd 0D CD 0D GD OD 0D OD Cd OD 00 GD 0D Cd 00 09 GD GD CD CD CD OD GD 


OUTPUTS 
The result of the conversion is left in the destination value 
address. Overflow status is returned. 


++ 


Parameter Offsets 


00000004 
00000008 
0000000C 


dst_arg = 4 
src_ = 


arg = 8 
tokencode = 12 


Register usuage 

r Address of the dst_arg 
r Address of the re re 
r4,r5  quadword tempory result 
r6,r7 quadwo:d tempory result 


to value, “M<r2,r3,r4,r5,r6,r7> 
¥ re ; destination address of 8 bytes 
MOVL src ar piah rs ; source address of 8 bytes 
MOV = (r23,r ; move the destination value 
: into quadword (in r4,r5) 


CMPL tokencode(AP) ,#tokenzk _integer 


9 APY 
89 

898 

899 

900 

44! 

9 § BEQL shift_decimalul$ 
90 

904 

905 

208 

90 

908 
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— os 


- ENTRY goascvt. tuquedwers 
MOVL dst_arg(AP 


u 
CMPL tokencode(AP) ,#token$k_hex_integer 
BEQL shift_hexdecimalul$ ’ 

CMPL tokencode(AP) ,#token$k_bin_integer 
BEQL shift_binaryul$ ; 

CMPL tokencode(AP) ,#token$k_oct_integer 
BEQL shift_octalul§$ 
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v04- dbg$cvt_tuquadword_to_value 46-SEP-1984 23:56:4 DEBUG. SRC JDBGPERMOP.MAR; 1 (8) 
0039 «(31 iF ; 308 BRw report_errorul$ 
1F26 3911 shift_decimalul$: ; Multiply the — by 10 
56 1 79 1F26 318 ASHQ #1,74,r6 ; «multiply r4 
| 54 3 79 IF2A 391 ASHQ #3,r6,r4 ; multiply r4 4 
54 $ C8 1F2E 3914 ADDL2 r6,r4 : add result (= * 10) 
D8 1F31 3915 ADWC or? 5 ; Add with carry 
F iF F346 3916 uquad_overflow$ ; Branch on unsigned overflow set 
0015 31 = 3 ait BRw set_reésultul$ 
1F39 3919 shift penta aatat es : Multiply the value by 16 
54 564 04 79 1F39 3920 ASHQ r4,r4 
O00E 31 +e : 1 BRw + resultul$ 
1F40 39 g shift_binaryul$: ; Multiply the value by 2 
54 54 01 «79—«1F4O 399% ASHO #1, 74,76 
0007 31 ae ; ? set_resultul$ 
1F47 $97 shift_octalul$: 3; Multiply the value by 8 
54 54 03 79 1F47 3928 ASHQ #3,7r46,74 
0000.—=s‘ 311 be 4 BRW set_resultul$ 
1F4E 3931 set_resultul$: ake 
62 54 7D 1F4E 936 MOva r4,(r2) ; Move it into destination 
1F51 93 5 (QUADWORD ) 
62 63 CO 1F51 3934 ADDL2 (r3),(r2) ; Add the character val 
04 A2 04 A383 DB 1F54 3935 ADWC 3-4 (F354 r2) : _ into QUADWORD (8 bytes addition) 
1A SOF OF S9 $938 BCS uquad_ “over flow$S ; Check for overflow 
50 01 DO 1F5B 3937 MOVL #1,r0° 
A fe ee 
1FSF 3940 report_errorul$: 
OO00009E *EF a 8 4 3343 3 errmsg3 
00028362 8&F DD 1F67 305 PUSHL igogs interr 
O0000000'GF 03 FB 1F6D 3944 CALLS *CIBSSIGNAL 
4 NERS Soce se 
1F75 at uquad_overflow$: 
50 o4 1F75 3948 CLRL r0 
04 1777 3949 RET 
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, VO04 dbg$cvt_toctaword_to_value 64-SEP-19 756:4 DEBUG. SRC JDBGPERMOP .MAR; 1 
1F7 $21 oe -SBTTL dbg$cvt_toctaword_to_value 
ite 338 ;GLOBAL ROUTINE DBGSCVT_TOCTAWORD_TO_VALUE(DST_ARG, SRC_ARG, TOKENCODE): = 
| ° 
1F7 955 ; FUNCTION : 
1F7 228 ; This routine accumulates the value in DST_ARG from SRC_ARG 
ree FHA ; depending on given radix. 
1F78 3959 ; This routine is called from the caller one byte at a time, ie., 
| ere 960 ; OCTAWORD value initialized to zero. 
1F7 961 ; DO i FROM 1 to number of characters : 
| tee 366 ; OCTAWORD value = OCTAWORD value * radix + converted character value(i) 
1F78 3964 ; This routine is used for signed octaword. 
1F78 3965 ; 
1F78 3966 ; INPUTS 
eee 444 ; DST_ARG = The address of the destination value (16 bytes). 
ieee 3369 ; SRC_ARG = The address of the source value (16 bytes). 
1F78 3971 ; TOKENCODE-Token code can be one of TOKENSK_INTEGER, 
1F78 3958 ; TOKENSK_HEX_INTEGER, TOKENSK_BIN_INTEGER, 
1F78 3973 ; TOKENSK_OCT_INTEGER. 
1F78 «3974 ; 
1F78 Sore ; OUTPUTS feat 
1F78 3976 ; The result of the conversion is left in the destination value 
1F78 3977 ; address. Overflow status is returned. 
1F78 3978 ;++ 
1F78 San 
1F78 3980 ; Parameter Offsets 
1F78 3981 ; 
00000004 1F78 o8e dst_arg = 4 
00000008 1F78 398 src_arg = 8 
OOOOOO0C + 1F78 3984 tokencode = 12 
1F78 3985 ’ 
1F78 3986 ; Register usuage 
1F78 Sth ; r Address of the dst_arg 
1F78 3988 ; r Address of the src_arg 
1F78 3989 ; 
1F78 3990 
OFFC 1F78 3991 .ENTRY Seaport, coctauard to_value,“M<r2,r3,r4,r5,r6.r7,.r8.r9,r10,r11> 
52 04 AC DO IF7A 3992 MOVL dst_arg(AP),r : destination address of 16 bytes 
53.08 DO 1F7 995 MOVL src_arg(AP),r ; source address of 16 bytes 
OOOOOOSC"EF 62 7D 1FB82 3994 MOVQ (r2},work_octa 3 move the destination value 
1F8 995 ; into work_octa 
00000064"EF 08 A2 7D 1F89 3996 MOVG 8(r2) ,work_octa+8 
54 7CFD 1°91 3997 CLRO r4 
58 7CFD 1F94 3998 CLRO Or 8 
06 OC AC D1 1F97 3999 CMPL tokencode(AP) ,#token$k_integer 
15 13 1F98 4000 BEQL decimal$ : 
0S OC AC D1 1F9D 4001 CMPL tokencode(AP) ,#token$k_hex_integer 
12 13 1FAl 400 BEQL hexdecimal$ Rind 
OA OC AC 01 as 400 CMPL tokencode(AP) ,#token$k_bin_integer 
OF 13 IFA? 4004 BEQL binary . 
OB OC AC D1 I1FA9 4005 CMPL tokencode (AP) ,#token$k_oct_integer 
OC 13 IFAD 4006 BEQL octal$ 
0164 31 #IFAF 4007 BRw report_error2$ 


| DBGPERMOP 
‘Yoe-b00 
| 0009 
| 0088 
00c2 
OOF C 
54 1F «601 += 0000005C "EF 


0000005C° 
OOOOOOSC*EF 03 


0000005C 
OOOOOOSC*EF 04 


55 
56 
OO00005C ‘EF 20 
0000005C ‘EF 01 
58 
SA 
58 
59 
A 
| 
| 


OOOOOOSC*EF 20 IF 


QOOOOOSC*EF 20 3F 
OOOOOOSF 8F 


57 
OO00007F BF 
50 


48 
1D 03 Q000005C*EF 
QOOOOOSC*EF 20 1D 


QOOOOOSC*EF 20 3D 


EF 20 00000050 of 

0000007D 8F 

50 

11 

58 854 

ae oe 

5A 56 

5B CS? 

03 

OOBA 

OOEC 

1C_ 04 0000005C "EF 

0000005C*EF 0 iC 

OOOOOOSC*EF 20 3C 
7. @& 


0000005C 4 
0000007C 8F 
50 


00% 
OOAF 


dbg$cvt_toctaword_to_value 
1FB2 4008 decimal$: 
31 1FB2 4009 - -BRW 
1FB5 4010 hexdecimal$: 
31 «1FBS 4011 BRw 
1FB8 £818 binary$: 
31 1FBB 401 
1FBB 4014 octal$: 
31 1FBB 4015 BRw 
1FBE 4016 
1FBE 4017 shift_decimal2$: 
1FBE 4018 
FO ba 3 4019 INSV 
1FC? 4020 
1FC7 4021 
1FC7 40 ¢ 
1FC7 402 
1FC7 4024 
EF 1FC7 $882 EXTZV 
1FDO 4026 
1FDO 4027 
EF FDO 4028 EXTZV 
EF wee 4029 EXTZV 
EF 1FE6 4030 EXTZV 
ere 
12 #1FFS 4031 BNEQ 
1FFS 403 
FO 1FFS 403 INSV 
EF FFE 4034 EXTZV 
EF 2007 4035 EXTZV 
EF snie 4036 EXTZV 
EF 201D 4037 EXTZV 
2029 
12 202A 4038 BNEQ 
CO 202C 4039 ADDL2 
D8 sogt 4040 ADWC 
D8 $0 ¢ 4041 ADWC 
D8 2035 404 ADWC 
1D soee 404 BVS 
31 203A 4044 _— BRW 
2030 4045 decimal_ov$: 
31 2030 4046 BRW 
040 404 : : 
040 4048 shift_hexdecimal 
FO 2040 4049 INSV 
EF 2049 4050 EXTZV 
EF 2052 4051 EXTZV 
EF 028 4052 EXTZV 
EF 594 4053 EXTZV 
12 2075 4054 BNEQ 
31 2077 4055 ; 
O7A £036 hexdecimal ov$: 
31 207A 405 BRO 
207D 4058 


Pa joB6 33: 


shift decimal2$ 
shift _hexdecimal2$ 
shift_binary2$ 
shift_octal2$ 


work_octa,#1,#31,r4 


#31,#32,work_octa,r5 
#63,#32,work_octa,r6 
#95 ,#32,work_octa,r7 
#127,41,work_octa,r0 
decimal_ov$ 
work_octa,#3,#29,r8 

4 swork_octa,r9 
#61,#32,work_octa,r10 
#93,#32,work_octa,ri1 
#125,#3,work_octa,r0 


decimal_ov$ 


decimal_ov$ 
set_result2$ 


octa_overflow$ 

2$: 

work octa,#4,#28,r8 
#28932 ,work_octa.r9 
008 -work_octa,r10 
#92,#32,work_octa,ril 
#124,#4,work_octa,r0 


hexdecimal_ov$ 
set_result2$ 


octa_overflow$ 


S647 


AX/VMS Macro v04-00 
DEBUG. SRC JDBGPERMOP .MAR; 1 


Multiply the value by 10 


multiply work_octa by 2 
Move integer to bit-field 

move from work _octa into 

pos 1, length 51 of r4 

r4 is zero out first, 

so bit 0 of r4 is zero. 
Move bit-field into integer 

move_from work_octa 

pos 31, Length 32 to r5 
Move next 32 bits into ré 
Move next 32 bits into r7 


Check to see if the leftover 
bits are zero, if not, 


we have overflow. 
multiply work_octa by 8 


Add two *2 + *8 = #10 


Add with carry 
Branch on signed overflow set 


Multiply the value by 16 


Page 75 
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DBGPERMOP 15-SEP-1984 
VOe~ 500 dbg$cvt_toctaword_to_value raat Ti 53 
07D 4059 shift_binary2$: 
58 1F 01. 000000SC°EF FO 507D 4060 INSV work socta.#1 #31 78 
59 Q000005C°EF $8 1F EF 2086 4061 EXTZV #31,832,work_octa,r9 
5A___Q000005C "EF QO 3F EF 208F 406 EXTZV #63,#32,work_octa,r10 
OOOOOOSC*EF 20 0000005F 14 EF 90 406 EXTZV «#95, #32,work_octa,r11 
OOOOOOSC*EF 01 0000007F 4 EF BAS 4064 EXTZV -#127,#1,work_octa,r0 
03 12 2082 4065 BNEQ binary_ov$ 
0040 1 20B4 4066 BRw set_result2$ 
0B7 4067 binary_ov$: 
007° 31 44 rst BRw octa_overflow$ 
a 2090 shift_octal2$: 
58 1D 03 QO0000SC°EF FO 20BA 4071 INSV work_octa,#3,#29,r8 
59 gon000screF 20 Ib EF 20C3 4072 EXTZV #29,832.work octasr9 
5A __QO00005C EF 0 3D EF 20CC 407 EXTZV #61,#32,work_octa,r10 
OOOOOOSC'EF 20 0000005D of EF soe? 4074 EXTZV «-#93,#32,work_octa,r11 
OOOOOOSC*EF 03 0000007D of EF 202 4075 EXTZV #125, #3,work_octa,r0 
03 12 20EF 4076 BNEQ octal_ov$ 
0003 31 20F1 4077 BRW set_result2$ 
20F4 4078 octal_ov$: 
0035 ==31 sors rtf BRw octa_overflow$ 
20F7 4081 set_result2$: 
62 58 7D ee ret MOVQ r8,(r2) 
08 A2 SA 7D 20FA 4084 mMOVQ r10,8(r2) 
63 CO 20FE 4085 ADDL2 (r3),(r2) 
04 A2 04 A3 DB 2101 4086 ADWC 3-4 35,4 (2) 
08 A2 O08 AS) DB 2106 4087 ADWC 8(r3),8(r2) 
OC A2 OC Ad DB 3108 4088 ADWC =. 12 35, 12 (2) 
1A 1D 2110 4089 BVS octa_overflow$ 
50 01 00 2112 4090 MOVL #i,r 
04 2115 4091 RET 
2116 409 
2116 4093 report_error2$: 
coonne gr Be SHE 85s BURKE gyrase 
00028362 8F DD 211E 4096 PUSHL ogee interr 
00000000'GF 03 4 sige py oa CALLS #3, G*CIBSSIGNAL 
$188 4099 
12C 4100 octa_overflow$s: 
50 D4 16s 4101 CLR r0 
04 12E 2136 RET 
sist 410 
12F 4104 END 
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; Multiply the value by 2 
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: Multiply the value by 8 


; Move it into destination 
; (OCTAWORD) 


; Add the character value se 
; into OCTAWORD (16 bytes addition 


; Check for overflow 
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Symbol table ramet Ti 33:63: 
ABS_B 0001 we 04 BIT_AND_W_W 
ABS_B_NEGATE $0001 33 we 04 BIT-EQv"B-B 
- 00001060 R 04 BIT_EQV_L_L 
ABS_D_NEGATE 00001 3 = 04 BIT-EQV-W_wW 
“F Bp08) 4R 04 BIT_IMP_B-B 
ABS_FIXED OOD AGA a 04 BIT-IMP-L-L 
ABS_F _NEGATE 0000105C R 04 BIT_IMP_W_wW 
ABS_ 90001 06¢ 2 04 BIT-NOT-B 
ABS_G_NEGATE 00001076 R 04 BIT"NOT"L 
ABS_H 00001078 R 04 BIT-NOT_TF_TF 
ABS_H_NEGATE 00001085 R 04 BIT-NOT-W 
» Bob beh R 04 BIT-OR_6_8 
ABS_L_NEGATE 0001050 R 04 BIT-OR-L“L 
“W 0000103C¢ R 04 BIT-OR-TF_TF 
ABS W_NEGATE 00001044 R 04 BIT-OR-w_Q 
ADDPS 00001451 R 04 BIT_xOR_6 8 
ADDRESS_L BO 08 ger a 04 BIT_XOR-L_L 
ADD_BS 0000031A R 04 BIT-XOR-W_W 
ADD_BUS 00000324 R 04 BRANCH RET 
ADD_BU_BU 0000031D R 04 CHFSL_ACHARGLST = 
“8.6 00000313 R 04 CHF SL_SIGARGLST = 
ADD-DC_DC eek Te me 04 CHFS$L-SIG_NAME = 
~D 65 00000354 R 04 CONCAT_OKS 
vist Fc 00000365 R 04 CONCAT_TS 
ADD_F IRED_FIXED QOOOIA3E R 04 CONCAT_TF_TF 
FF QO00034F R 04 CONCAT T_T 
ADD-GC_GC 0000037D R 04 DBGSABS_FIXED 
“6.6 00000359 R 04 DBGSADD-F IXED_FIXED 
ADD-HT_HC 00000388 R 04 DBGSBLISS_BITSELECT 
“HA QOOOO35F R 04 DBGSBLISS_INDIRECTION 
ADD-LS 00000342 R 04 DBG$B_BPT_ INS 
ADD_LUS 0000034C R 04 DBG$B_PREV_PRO1 
ADD-LU_LU 00000345 R 04 DBG$B_PREV_PRO2 
“LC 00000338 R 04 DBG$B_USER_OPC 
“PP 0000143C R 04 DBGS$CUVT_TOCTAWORD_TO_VALUE 
ADD_TPTR_L 4 BAS ia 04 DBGSCVT_ TQUADWORD- TO- VALUE 
m3 00000 ¢ R 04 DBGSCVT_TRFA_TO_VALU 
ADD_ wus 00000338 R 04 DBGSCVT- TUQUADWORD_TO_VALUE 
ADD_WU_WU 00000331 R 04 DBGSC_ABDRESS_OF 
ADD-W_Q 00000327 R 04 DBGSC_ADD_TPT 
AND_B-B8 QOOOOEF3 R 04 DBG$C_INDIRECTION 
AND_D_D 00000F 17 R 04 DBGSC_PRE_DECR_TPTR 
AND-L-L 00000F0B R 04 DBGS$C_PRE-INCR'TPTR 
AND anes a 04 DBGS$C_RUNFR_LE 
ARGT_DESC 00000030 R 03 DBGSC_SIZEOF 
ARG1_VALDESC 00000034 R 03 DBG$C_SUB_TPTR_L 
G2- DESC 44s 8 R 03 DBG$C-SUB-TPTR_TPTR 
ARG2- VALDESC 0000 CR 03 DBGSDTV_FIXED_FIXED 
ASICS QOOOO3S0F R 04 DBGSEQL“FIXED-FIXED 
GN as Le BR 04 DBG$GB_CANGUAGE 
BINARYS p00 Fr Bs BR 04 G$GEG_FIXED_FIXED 
BINARY_OVS 00002087 R 04 DBGSGTR-FIXED-FIXED 
BITPOS = Bony hes DBGSK_BASIC = 
BITSELECT 00010AD R 04 PBGSK-PLI_ABIT = 
BIT_AND_B_ 9000088) B 04 DBGS$K~PLI~UBIT = 
BIT-AND-L“L 0 std e 04 DBG$K-RUNFR_LEN 
B1T~AND-TF_TF 000018C3 R 04 DBGSLEQ_FIXED_FIXED 
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SHIFT-DECIMALU1S QOOIEZE R 04 SuCT ENUM west len BIG + 
SHIFTHEXDECIMALS SECR e ORe TEST. IMAGINARYD B0000CA0 RO 
SHIETIHEXDECIMAL2$ 0002040 R 04 TEST-IMAGINARYF Boob Ores Be 
SHH HADEC AALS pee) Ht ieiur sees fe 
= = R = 
SHIFTLEFT"LLL 00 06 & 4 TOKEN K.BIN_ INTEGER = 00000005 
SHIFT-OCTACS™ QOOO1E3C R 04 TOKENSK_HEX = 90000004 
SHIFTZOCTALZS B000206A R04 TOKENSK0CT_INTEGER = 90000008 
SHIFTOCTALUIS QO001F47 Rs 04 TOKENCO = 0000000¢ 
SH ETCRT TU O0000BLe RO TRAP. ASG, HANDLER OOOOTBBE RG 04 
1 0000081) R 04 TRUNCATE” THE_OTHERS 00001742 R 04 
SHIFT RT LULU OF R 04 UMBS ig QO000F92 R 04 
SHIFTER TALC 00001288 R Od UALS OO0D0EAL R 04 
SRC_ARG S Bhoterat UNARY MINUS B QOO00F8C R 04 
SS$_DECOVE = 9009694 UNARY-MINUS_D QO000FB4 R 04 
SS-FLIDIV.F = O09000BC UNARY-RINUS DC D0000FCB R 04 
SSS_FLTOVE~ = 2000 06RC UNARY-RINUS TEC O0000FC2 R 04 
3 = 9oco0e9C UNARY “MINUS FIXED OO00IAIg RO 
atria = Dooooese UNARY AINE eC O0000FD4 R04 
SS$_INTOVF = Seopocns UNARY-RINUS “HC OOOOOFDF R 04 
see -nonnee = 000045¢ UNARY“MINUS-L QOO00FSE R 04 
8 : 00000978 UNARY-MINUS_LU OOOOOFA7 R 04 
SS$_RESIGNAL ma 4 4 484 UNARY “MINUS -O 00001986 R 04 
fy term 4 Bosseersg ie UNARY “MINUS —P 000015¢9 R (4 
STRECOMPARE ceeceree X06 UNARY MINUS _Q 00001999 R = 04 
BTR CONE AY 00000269 R04 UNARY“RINUS~W QO000F95 R 04 
STRING_ TRUNCATE si $4 ae 04 UNARY"P$ 000015F4 R 04 
BS BOOOOsAR ROG UNARY“PLUS_B OOOOOFEA R 04 
are ny 0003A3 R 04 UNARY—PLUS_D QOOOOFFA R 04 
a8 Bo Sh a a eek see 8S 
SuB_DT_pc O0003F7 R ? UNARY “PLUS” 0001008 R 04 
ag 20099 PBR Od UNARY "PLUS" FIXED QO001A02 R 04 
SUB_FC FC BOTASB 04 UNARY_PLUS— OOOOOFFE R 04 
sus 7 TRED_F LIKED 00000808 RO UNARY~PLUS~GC ieee Re 
sed R 04 UNARY _PLUS_ 00001025 R 04 
000003DF R 4 UNARY PLUS HC poogtes RS 
00000411 R 4 UNARY _PLUS_L 000019AB R 04 
Q00003E5 R 04 UNARY _PLUS_0 Q00015E6 R 04 
00003CB R 04 UNARY~PLUS-P §0001988 ROG 
ae R 04 UNARY-PLUS“W Ss Se 04 
R 04 UNION“SET1$ 00 
a R 04 UNIONZSET2$ 00001989 RO 


<ZU 


DBGPERMOP 
Symbol table 
3$ 
4% 
RETS 
Ou 


-SET 
SET 
“3 I-s 
NOUNS 


E 
SET 
T INDEX 
IGNAL 
ERF LOWS 


$AB 
DBGSPLIT 
DBGSOWN 
DBGSCODE 


Initialization 
Command processing 


Pass 1 
Synbol table sort 
Symbol table output 


Psect synopsis output 
Cross-reference output 


Assembler run totals 


' The vert ing set Limit was *500 pages. 

1357763 bytes (270 pages’ of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1722 non-local and 36 local symbols. 
"Rie te object records in Pass 2 

macros. 


4104 source Lines were read in Pass 1 
17 pages of virtual memory were used to define 


Macro Library name 


-§ SgSDUA 8: CDEBUG.OBJJDBGMSG.MLB; 1 
55$DUA28:(SYSLIBJSTARLET-MLB; 2. 
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1264 GETS were required to define 13 macros. 
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VAK=-11 Macro Run Statistics 

There were no errors, warnings or information messages. 
MACRO/L1S=L1S$:DBGPERMOP/0BJ=0BJ$:DBGPERMOP MSRC$:DBGPERMOP/UPDATE=(ENH$:DBGPERMOP) +L 1B$:DBGMSG/LIB 
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